From a0da4400009c3faf23e2057bcb5148c9a1f30d53 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 22 Oct 2010 08:47:09 +0100
Subject: [PATCH] Merge the implementation of B::CV::{ROOT,START}.

---
 ext/B/B.pm |  2 +-
 ext/B/B.xs | 12 +++---------
 2 files changed, 4 insertions(+), 10 deletions(-)

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 3d254b5..a7a022f 100644
--- 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
--- 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
 
-- 
1.8.3.1