diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-03 05:33:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-03 05:33:04 +0000 |
| commit | 1af34c76bc1167bbfada70004d6cbc41b0098f64 (patch) | |
| tree | 42cb39da264764002e1343505a4de2678e02fcf6 /dump.c | |
| parent | 1911be8391700522b225cf514eddd9ebe9eaf644 (diff) | |
| download | perl-1af34c76bc1167bbfada70004d6cbc41b0098f64.tar.gz | |
Salvage 'use filetest "access"' from compiletime to runtime.
p4raw-id: //depot/perl@19392
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -616,6 +616,10 @@ 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"); + } if (o->op_flags & OPf_MOD && o->op_private & OPpLVAL_INTRO) sv_catpv(tmpsv, ",INTRO"); if (SvCUR(tmpsv)) |