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 /ext/Devel | |
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 'ext/Devel')
-rw-r--r-- | ext/Devel/Peek/Peek.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs index 5bec844ccd..a88d23141d 100644 --- a/ext/Devel/Peek/Peek.xs +++ b/ext/Devel/Peek/Peek.xs @@ -39,7 +39,7 @@ DeadCode(pTHX) int levels, tots = 0, levela, tota = 0, levelas, totas = 0; int dumpit = 0; - if (CvXSUB(sv)) { + if (CvISXSUB(sv)) { continue; /* XSUB */ } if (!CvGV(sv)) { |