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 (file)
--- 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 (file)
new mode 100755 (executable)