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, 1 insertions, 1 deletions

diff --git a/pp_sort.c b/pp_sort.c
index 48595886cb..104e8ed90d 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1515,7 +1515,7 @@ PP(pp_sort)
 		}
 	    }
 	    if (!(cv && CvROOT(cv))) {
-		if (cv && CvXSUB(cv)) {
+		if (cv && CvISXSUB(cv)) {
 		    is_xsub = 1;
 		}
 		else if (gv) {