summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorBen Morrow <ben@morrow.me.uk>2010-10-05 18:55:41 +0100
committerFather Chrysostomos <sprout@cpan.org>2010-10-06 23:28:55 -0700
commitef69c8fcaa2e29961b103ed4aaf7b24d5edd9f23 (patch)
treec20362f9dff4bbd1d01abfb4347b28fe910f7ba4 /op.c
parent9ed9b795caa408a925999e1d90f9932e35b3ab10 (diff)
downloadperl-ef69c8fcaa2e29961b103ed4aaf7b24d5edd9f23.tar.gz
Remove MEMBER_TO_FPTR.
This is left over from PERL_OBJECT (see beeff2, 16c915, and so on).
Diffstat (limited to 'op.c')
-rw-r--r--op.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/op.c b/op.c
index c8c67f707c..10279babc5 100644
--- a/op.c
+++ b/op.c
@@ -569,7 +569,7 @@ Perl_op_clear(pTHX_ OP *o)
break;
default:
if (!(o->op_flags & OPf_REF)
- || (PL_check[o->op_type] != MEMBER_TO_FPTR(Perl_ck_ftst)))
+ || (PL_check[o->op_type] != Perl_ck_ftst))
break;
/* FALL THROUGH */
case OP_GVSV:
@@ -1704,7 +1704,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
their argument is a filehandle; thus \stat(".") should not set
it. AMS 20011102 */
if (type == OP_REFGEN &&
- PL_check[o->op_type] == MEMBER_TO_FPTR(Perl_ck_ftst))
+ PL_check[o->op_type] == Perl_ck_ftst)
return o;
if (type != OP_LEAVESUBLV)
@@ -7235,7 +7235,7 @@ Perl_ck_ftst(pTHX_ OP *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)
+ if (PL_check[kidtype] == Perl_ck_ftst
&& kidtype != OP_STAT && kidtype != OP_LSTAT)
o->op_private |= OPpFT_STACKED;
}