summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorJim Cromie <jcromie@cpan.org>2008-02-10 05:52:59 -0700
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2008-02-25 08:02:50 +0000
commit6ecf81d654dfb4e99b0f99d78579deb3289aae3b (patch)
treeabb87fe3ab127dd5b0bf97f385955e374cf1e31d /op.c
parentc13076132a20419dab956060b96f9d3ef3b25ad7 (diff)
downloadperl-6ecf81d654dfb4e99b0f99d78579deb3289aae3b.tar.gz
Re: [patch] optimize OP_IS_(FILETEST|SOCKET) macros
From: "Jim Cromie" <jim.cromie@gmail.com> Message-ID: <cfe85dfa0802101152n4e1b9e07pc7fb7ad9241a9794@mail.gmail.com> p4raw-id: //depot/perl@33364
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 4e0695f92b..0e78eb12ca 100644
--- a/op.c
+++ b/op.c
@@ -6683,7 +6683,7 @@ Perl_ck_ftst(pTHX_ OP *o)
#endif
return newop;
}
- if ((PL_hints & HINT_FILETEST_ACCESS) && OP_IS_FILETEST_ACCESS(o))
+ if ((PL_hints & HINT_FILETEST_ACCESS) && OP_IS_FILETEST_ACCESS(o->op_type))
o->op_private |= OPpFT_ACCESS;
if (PL_check[kidtype] == MEMBER_TO_FPTR(Perl_ck_ftst)
&& kidtype != OP_STAT && kidtype != OP_LSTAT)