diff options
| author | Gerard Goossen <gerard@ggoossen.net> | 2011-08-06 17:23:03 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-08 15:49:44 -0700 |
| commit | 83f9fced9447634b1f940717275290f7a74ab633 (patch) | |
| tree | 826202597f2ec5a901c568e694b1451453dda89b /embed.fnc | |
| parent | 8d38d4f3d12487d853d03228c4481161ddcd2632 (diff) | |
| download | perl-83f9fced9447634b1f940717275290f7a74ab633.tar.gz | |
Move aassign common var detection to a separate function.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -805,6 +805,9 @@ p |void |my_unexec Apa |OP* |newANONLIST |NULLOK OP* o Apa |OP* |newANONHASH |NULLOK OP* o Ap |OP* |newANONSUB |I32 floor|NULLOK OP* proto|NULLOK OP* block +#if defined(PERL_IN_OP_C) +i |bool |aassign_common_vars |NULLOK OP* o +#endif Apda |OP* |newASSIGNOP |I32 flags|NULLOK OP* left|I32 optype|NULLOK OP* right Apda |OP* |newCONDOP |I32 flags|NN OP* first|NULLOK OP* trueop|NULLOK OP* falseop Apd |CV* |newCONSTSUB |NULLOK HV* stash|NULLOK const char* name|NULLOK SV* sv |