diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-15 16:14:22 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-15 16:14:22 +0000 |
| commit | d2fdf8fdbe6e667aa21f187390b3b412d8fccba9 (patch) | |
| tree | 434f879a0b3a77fbe2c2545680376123cfca61d5 /perly.y | |
| parent | cbe583b960c195821416c9520625ddc997fe7668 (diff) | |
| download | perl-d2fdf8fdbe6e667aa21f187390b3b412d8fccba9.tar.gz | |
Patch by Gerard Goossen to add madprops to "require" opcode
p4raw-id: //depot/perl@30599
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -1178,10 +1178,14 @@ term : termbinop { $$ = newUNOP(IVAL($1), 0, $2); TOKEN_GETMAD($1,$$,'o'); } - | REQUIRE /* require, $_ implied *//* FIMXE for MAD needed? */ - { $$ = newOP(OP_REQUIRE, $1 ? OPf_SPECIAL : 0); } - | REQUIRE term /* require Foo *//* FIMXE for MAD needed? */ - { $$ = newUNOP(OP_REQUIRE, $1 ? OPf_SPECIAL : 0, $2); } + | REQUIRE /* require, $_ implied */ + { $$ = newOP(OP_REQUIRE, $1 ? OPf_SPECIAL : 0); + TOKEN_GETMAD($1,$$,'o'); + } + | REQUIRE term /* require Foo */ + { $$ = newUNOP(OP_REQUIRE, $1 ? OPf_SPECIAL : 0, $2); + TOKEN_GETMAD($1,$$,'o'); + } | UNIOPSUB { $$ = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar($1)); } | UNIOPSUB term /* Sub treated as unop */ |