2 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index fc231b185d..db78b4e3f7 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
index 06e350988d..06e350988d 100644..100755
--- a/t/op/splice.t
+++ b/t/op/splice.t