Add a new CvISXSUB() macro, for abstracting the test as to whether a

PVCV is perl or XS.

p4raw-id: //depot/perl@27241

1 files changed, 2 insertions, 2 deletions

diff --git a/pad.c b/pad.c
index aa806ea95a..75f08389d0 100644
--- a/pad.c
+++ b/pad.c
@@ -1445,8 +1445,8 @@ Perl_cv_clone(pTHX_ CV *proto)
     CvCLONED_on(cv);
 
 #ifdef USE_ITHREADS
-    CvFILE(cv)		= CvXSUB(proto) ? CvFILE(proto)
-					: savepv(CvFILE(proto));
+    CvFILE(cv)		= CvISXSUB(proto) ? CvFILE(proto)
+					  : savepv(CvFILE(proto));
 #else
     CvFILE(cv)		= CvFILE(proto);
 #endif