diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-09 21:48:15 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-09 21:48:15 +0000 |
| commit | fbb0b3b383a878902acf90a09bf05a52493ef56c (patch) | |
| tree | 40c2bb309b99466871da1e2970df52d54f120356 /dump.c | |
| parent | 6c94ec8ba7f0b5a05c74409397b9f1735413262d (diff) | |
| download | perl-fbb0b3b383a878902acf90a09bf05a52493ef56c.tar.gz | |
Implement stacked filetest operators (-f -w -x $file).
p4raw-id: //depot/perl@22294
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -624,9 +624,11 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) if (o->op_private & OPpHUSH_VMSISH) sv_catpv(tmpsv, ",HUSH_VMSISH"); } - else if (OP_IS_FILETEST_ACCESS(o)) { - if (o->op_private & OPpFT_ACCESS) - sv_catpv(tmpsv, ",FT_ACCESS"); + else if (PL_check[o->op_type] != MEMBER_TO_FPTR(Perl_ck_ftst)) { + if (OP_IS_FILETEST_ACCESS(o) && o->op_private & OPpFT_ACCESS) + sv_catpv(tmpsv, ",FT_ACCESS"); + if (o->op_private & OPpFT_STACKED) + sv_catpv(tmpsv, ",FT_STACKED"); } if (o->op_flags & OPf_MOD && o->op_private & OPpLVAL_INTRO) sv_catpv(tmpsv, ",INTRO"); |