diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-09-09 19:41:54 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-15 12:33:49 +0000 |
| commit | 38777ebb870e758e10dad6191e81eaf17f8bd76c (patch) | |
| tree | 73ff47381401919d6d90daccf674fc93918f21a7 /util.c | |
| parent | e0134514b92996f5d404540d90e2978edc70ac00 (diff) | |
| download | perl-38777ebb870e758e10dad6191e81eaf17f8bd76c.tar.gz | |
Re: [ID 20010815.012] Unfortunate interaction between -0 cmd line arg & (??{CODE}) regex
Message-Id: <200109091741.f89HfsM18534@crypt.compulink.co.uk>
p4raw-id: //depot/perl@12027
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -3052,8 +3052,7 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t) PL_tainted = t->Ttainted; PL_curpm = t->Tcurpm; /* XXX No PMOP ref count */ - PL_nrs = newSVsv(t->Tnrs); - PL_rs = t->Tnrs ? SvREFCNT_inc(PL_nrs) : Nullsv; + PL_rs = newSVsv(t->Trs); PL_last_in_gv = Nullgv; PL_ofs_sv = t->Tofs_sv ? SvREFCNT_inc(PL_ofs_sv) : Nullsv; PL_defoutgv = (GV*)SvREFCNT_inc(t->Tdefoutgv); |