diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-09 23:51:47 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-11 06:45:52 +0000 |
| commit | ce862d02de7e5d8ac2078735cf4bd004193e837d (patch) | |
| tree | d4854f3cbeed1218899e244256dcaa2fd801b7b5 /perl.c | |
| parent | d17537aab689bff5dd6b2e2650edc82102b86270 (diff) | |
| download | perl-ce862d02de7e5d8ac2078735cf4bd004193e837d.tar.gz | |
Bugs with (?{}), $^R and many-to-many subst
Message-Id: <199806100751.DAA05441@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1117
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -476,6 +476,7 @@ perl_destruct(register PerlInterpreter *sv_interp) argvoutgv = Nullgv; stdingv = Nullgv; last_in_gv = Nullgv; + replgv = Nullgv; /* reset so print() ends up where we expect */ setdefout(Nullgv); @@ -1818,6 +1819,8 @@ 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 */ + GvMULTI_on(replgv); (void)form("%240s",""); /* Preallocate temp - for immediate signals. */ sv_grow(ERRSV, 240); /* Preallocate - for immediate signals. */ sv_setpvn(ERRSV, "", 0); |