From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 31 Oct 2010 09:52:40 +0000 (+0000)
Subject: Merge the implementation of B::{minus_c,save_BEGINSs} using ALIAS.
X-Git-Tag: upstream/5.16.3~7058
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=651233d25acd81c1875b6dc7de0292453b277fd3;p=platform%2Fupstream%2Fperl.git

Merge the implementation of B::{minus_c,save_BEGINSs} using ALIAS.
---

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 16c617955b..d8d2b435d7 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -795,13 +795,13 @@ cast_I32(i)
 
 void
 minus_c()
+    ALIAS:
+	save_BEGINs = 1
     CODE:
-	PL_minus_c = TRUE;
-
-void
-save_BEGINs()
-    CODE:
-	PL_savebegin = TRUE;
+	if (ix)
+	    PL_savebegin = TRUE;
+	else
+	    PL_minus_c = TRUE;
 
 SV *
 cstring(sv)