diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-24 10:25:06 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-28 19:28:13 +0000 |
| commit | 95a449b8d7e85665d931cb07abe3a369141c3170 (patch) | |
| tree | a9beda31bf3c210e54364a4d55286e90d3048607 /perl.c | |
| parent | 48cdf507c2336254e1128c94e7b4ba57b106d9a9 (diff) | |
| download | perl-95a449b8d7e85665d931cb07abe3a369141c3170.tar.gz | |
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
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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. */ |