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 /dump.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 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1035,7 +1035,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) } else if (S_op_private_to_names(aTHX_ tmpsv, optype, o->op_private)) { } - else if (PL_check[optype] != MEMBER_TO_FPTR(Perl_ck_ftst)) { + else if (PL_check[optype] != Perl_ck_ftst) { if (OP_IS_FILETEST_ACCESS(o->op_type) && o->op_private & OPpFT_ACCESS) sv_catpv(tmpsv, ",FT_ACCESS"); if (o->op_private & OPpFT_STACKED) @@ -2973,7 +2973,7 @@ Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o) if (o->op_private & OPpHUSH_VMSISH) sv_catpv(tmpsv, ",HUSH_VMSISH"); } - else if (PL_check[o->op_type] != MEMBER_TO_FPTR(Perl_ck_ftst)) { + else if (PL_check[o->op_type] != Perl_ck_ftst) { if (OP_IS_FILETEST_ACCESS(o->op_type) && o->op_private & OPpFT_ACCESS) sv_catpv(tmpsv, ",FT_ACCESS"); if (o->op_private & OPpFT_STACKED) |