Merge the implementation of B::CV::{ROOT,START}.

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 3d254b5..a7a022f 100644 (file)
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -7,7 +7,7 @@
 #
 package B;
 
-our $VERSION = '1.24';
+our $VERSION = '1.25';
 
 require XSLoader;
 require Exporter;

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 3d51969..e0cda16 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1913,16 +1913,10 @@ CvSTASH(cv)
 B::OP
 CvSTART(cv)
        B::CV   cv
+    ALIAS:
+       ROOT = 1
     CODE:
-       RETVAL = CvISXSUB(cv) ? NULL : CvSTART(cv);
-    OUTPUT:
-       RETVAL
-
-B::OP
-CvROOT(cv)
-       B::CV   cv
-    CODE:
-       RETVAL = CvISXSUB(cv) ? NULL : CvROOT(cv);
+       RETVAL = CvISXSUB(cv) ? NULL : ix ? CvROOT(cv) : CvSTART(cv);
     OUTPUT:
        RETVAL