From 95a449b8d7e85665d931cb07abe3a369141c3170 Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Wed, 24 Jun 1998 10:25:06 -0400 Subject: 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 --- perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl.c') 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. */ -- cgit v1.2.1