Implement stacked filetest operators (-f -w -x $file).

p4raw-id: //depot/perl@22294

1 files changed, 5 insertions, 3 deletions

diff --git a/dump.c b/dump.c
index 75124c62ab..5f56689bc8 100644
--- 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");