[patch perlguts.pod] save_item doesn't handle magic

[p5sagit/p5-mst-13.2.git] / dump.c

diff --git a/dump.c b/dump.c
index 75124c6..5f56689 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -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");