diff options
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 18 |
1 files changed, 8 insertions, 10 deletions
@@ -635,20 +635,18 @@ subbody : block { $$ = $1; } package : PACKAGE WORD WORD ';' { -/* Since no one seem to understand or use the MAD stuff, but Larry implies - * it shouldn't be removed, it's just commented out, and someone who - * understands it can come along later and fix it up. #ifdef MAD - (yyval.opval) = package((ps[(2) - (3)].val.opval)); - token_getmad((ps[(1) - (3)].val.i_tkval),(yyval.opval),'o'); - token_getmad((ps[(3) - (3)].val.i_tkval),(yyval.opval),';'); + $$ = package($3); + token_getmad($1,$$,'o'); + if ($2) + package_version($2); + token_getmad($4,$$,';'); #else -*/ package($3); - if ($2) { - package_version($2); - } + if ($2) + package_version($2); $$ = (OP*)NULL; +#endif } ; |