diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-20 10:40:59 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-20 10:40:59 +0000 |
| commit | aed2304a0354e5cd0ca22ed008e1922f54b0f438 (patch) | |
| tree | 1138ff6e0aa651adb9234639339fd66c3cfbf793 /dump.c | |
| parent | 7c60e4340985406f3dd47ad08209883de1b8aa3b (diff) | |
| download | perl-aed2304a0354e5cd0ca22ed008e1922f54b0f438.tar.gz | |
Add a new CvISXSUB() macro, for abstracting the test as to whether a
PVCV is perl or XS.
p4raw-id: //depot/perl@27241
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -89,7 +89,7 @@ Perl_dump_sub(pTHX_ const GV *gv) gv_fullname3(sv, gv, NULL); Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nSUB %s = ", SvPVX_const(sv)); - if (CvXSUB(GvCV(gv))) + if (CvISXSUB(GvCV(gv))) Perl_dump_indent(aTHX_ 0, Perl_debug_log, "(xsub 0x%"UVxf" %d)\n", PTR2UV(CvXSUB(GvCV(gv))), (int)CvXSUBANY(GvCV(gv)).any_i32); |