diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2008-07-09 13:56:11 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2008-07-09 13:56:11 +0000 |
| commit | 845351c44038f6476c8452e0d9823e8bc1014dc5 (patch) | |
| tree | 189d784a02aaf397d457d246fd3d33e8c5f55b11 /gnu/usr.bin/perl/perly.c | |
| parent | 952ab311ebdd4193955b86ce06964c20021f96bc (diff) | |
Incorporate Otto's yacc skeleton fix.
Diffstat (limited to 'gnu/usr.bin/perl/perly.c')
| -rw-r--r-- | gnu/usr.bin/perl/perly.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/perly.c b/gnu/usr.bin/perl/perly.c index 378b9667682..0e8e9cb1e77 100644 --- a/gnu/usr.bin/perl/perly.c +++ b/gnu/usr.bin/perl/perly.c @@ -1596,7 +1596,10 @@ yyreduce: yystate, yyn, yyrule[yyn]); #endif yym = yylen[yyn]; - yyval = yyvsp[1-yym]; + if (yym) + yyval = yyvsp[1-yym]; + else + memset(&yyval, 0, sizeof(yyval)); switch (yyn) { case 1: |