From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Wed, 24 Jun 1998 14:25:06 +0000 (-0400)
Subject: avoid creation of %^R
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95a449b8d7e85665d931cb07abe3a369141c3170;p=p5sagit%2Fp5-mst-13.2.git

avoid creation of %^R
	Message-Id: <199806241825.OAA06346@monk.mps.ohio-state.edu>
	Subject: Re: [5.004_68] What is %^R ? [PATCH?]

p4raw-id: //depot/perl@1238
---

diff --git a/perl.c b/perl.c
index fc231b1..db78b4e 100644
--- a/perl.c
+++ b/perl.c
@@ -1867,7 +1867,7 @@ init_main_stash(void)
     defgv = gv_fetchpv("_",TRUE, SVt_PVAV);
     errgv = gv_HVadd(gv_fetchpv("@", TRUE, SVt_PV));
     GvMULTI_on(errgv);
-    replgv = gv_HVadd(gv_fetchpv("\022", TRUE, SVt_PV)); /* ^R */
+    replgv = gv_fetchpv("\022", TRUE, SVt_PV); /* ^R */
     GvMULTI_on(replgv);
     (void)form("%240s","");	/* Preallocate temp - for immediate signals. */
     sv_grow(ERRSV, 240);	/* Preallocate - for immediate signals. */
diff --git a/t/op/splice.t b/t/op/splice.t
old mode 100644
new mode 100755