From 6ecf81d654dfb4e99b0f99d78579deb3289aae3b Mon Sep 17 00:00:00 2001 From: Jim Cromie Date: Sun, 10 Feb 2008 05:52:59 -0700 Subject: Re: [patch] optimize OP_IS_(FILETEST|SOCKET) macros From: "Jim Cromie" Message-ID: p4raw-id: //depot/perl@33364 --- dump.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'dump.c') diff --git a/dump.c b/dump.c index bd11207239..7ad09b1e0c 100644 --- a/dump.c +++ b/dump.c @@ -982,7 +982,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) sv_catpv(tmpsv, ",HUSH_VMSISH"); } else if (PL_check[optype] != MEMBER_TO_FPTR(Perl_ck_ftst)) { - if (OP_IS_FILETEST_ACCESS(o) && o->op_private & OPpFT_ACCESS) + if (OP_IS_FILETEST_ACCESS(o->op_type) && o->op_private & OPpFT_ACCESS) sv_catpv(tmpsv, ",FT_ACCESS"); if (o->op_private & OPpFT_STACKED) sv_catpv(tmpsv, ",FT_STACKED"); @@ -2800,7 +2800,7 @@ Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o) sv_catpv(tmpsv, ",HUSH_VMSISH"); } else if (PL_check[o->op_type] != MEMBER_TO_FPTR(Perl_ck_ftst)) { - if (OP_IS_FILETEST_ACCESS(o) && o->op_private & OPpFT_ACCESS) + if (OP_IS_FILETEST_ACCESS(o->op_type) && o->op_private & OPpFT_ACCESS) sv_catpv(tmpsv, ",FT_ACCESS"); if (o->op_private & OPpFT_STACKED) sv_catpv(tmpsv, ",FT_STACKED"); -- cgit v1.2.1