diff options
author | Ben Morrow <ben@morrow.me.uk> | 2010-10-05 18:55:41 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-06 23:28:55 -0700 |
commit | ef69c8fcaa2e29961b103ed4aaf7b24d5edd9f23 (patch) | |
tree | c20362f9dff4bbd1d01abfb4347b28fe910f7ba4 /op.c | |
parent | 9ed9b795caa408a925999e1d90f9932e35b3ab10 (diff) | |
download | perl-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.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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; } |