diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-03-29 15:55:22 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-21 10:49:04 -0700 |
| commit | 226b920186705fc2c28a5bfa7f1b68ab3b56ddb4 (patch) | |
| tree | 729a0ea6f0170b71c80004d156ca2681ebc5c0bd /doio.c | |
| parent | 6ade2d35dc8c339a3e8d6ee685819d2a68e20edd (diff) | |
| download | perl-226b920186705fc2c28a5bfa7f1b68ab3b56ddb4.tar.gz | |
Move stack extension into FT_* macros
Every filetest operator with the OPf_REF flag set has to extend the
stack for the argument. One operator was missing it until the previ-
ous commit. Since we have special return macros for these operators,
put the stack extension there, to avoid a repeat of this type of mis-
take and reduce repetitiveness.
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -1271,7 +1271,6 @@ Perl_my_stat_flags(pTHX_ const U32 flags) GV* gv; if (PL_op->op_flags & OPf_REF) { - EXTEND(SP,1); gv = cGVOP_gv; do_fstat: if (gv == PL_defgv) @@ -1329,7 +1328,6 @@ Perl_my_lstat_flags(pTHX_ const U32 flags) dSP; const char *file; if (PL_op->op_flags & OPf_REF) { - EXTEND(SP,1); if (cGVOP_gv == PL_defgv) { if (PL_laststype != OP_LSTAT) Perl_croak(aTHX_ no_prev_lstat); |