Merge the implementation of B::{main_root,main_start} using ALIAS.

diff --git a/ext/B/B.xs b/ext/B/B.xs
index dca31b5..8ba2346 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -618,8 +618,6 @@ BOOT:
 #endif
 #define B_begin_av()   PL_beginav_save
 #define B_end_av()     PL_endav
-#define B_main_root()  PL_main_root
-#define B_main_start() PL_main_start
 #define B_amagic_generation()  PL_amagic_generation
 #define B_defstash()   PL_defstash
 #define B_curstash()   PL_curstash
@@ -664,12 +662,6 @@ B_regex_padav()
 B::CV
 B_main_cv()
 
-B::OP
-B_main_root()
-
-B::OP
-B_main_start()
-
 long 
 B_amagic_generation()
 
@@ -706,6 +698,15 @@ B_diehook()
 
 MODULE = B     PACKAGE = B
 
+B::OP
+main_root()
+    ALIAS:
+       main_start = 1
+    CODE:
+       RETVAL = ix ? PL_main_start : PL_main_root;
+    OUTPUT:
+       RETVAL
+
 UV
 sub_generation()
     ALIAS: