diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-19 16:23:30 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-19 16:23:30 +0000 |
commit | 84fee439e17f74d72fd55282112c02bc24f1cad2 (patch) | |
tree | 10d749d3874391435ad0de9adf362b83deaac7e6 /util.c | |
parent | bde848c562646d502628341cc25a35dd857800b2 (diff) | |
download | perl-84fee439e17f74d72fd55282112c02bc24f1cad2.tar.gz |
PL_ minir tidy up
p4raw-id: //depot/ansiperl@1568
Diffstat (limited to 'util.c')
-rw-r--r-- | util.c | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -2781,17 +2781,17 @@ new_struct_thread(struct perl_thread *t) PL_restartop = 0; tainted = t->Ttainted; - curpm = t->Tcurpm; /* XXX No PMOP ref count */ - nrs = newSVsv(t->Tnrs); - rs = SvREFCNT_inc(nrs); - last_in_gv = Nullgv; - ofslen = t->Tofslen; - ofs = savepvn(t->Tofs, ofslen); - defoutgv = (GV*)SvREFCNT_inc(t->Tdefoutgv); - chopset = t->Tchopset; - formtarget = newSVsv(t->Tformtarget); - bodytarget = newSVsv(t->Tbodytarget); - toptarget = newSVsv(t->Ttoptarget); + PL_curpm = t->Tcurpm; /* XXX No PMOP ref count */ + PL_nrs = newSVsv(t->Tnrs); + PL_rs = SvREFCNT_inc(PL_nrs); + PL_last_in_gv = Nullgv; + PL_ofslen = t->Tofslen; + PL_ofs = savepvn(t->Tofs, PL_ofslen); + PL_defoutgv = (GV*)SvREFCNT_inc(t->Tdefoutgv); + PL_chopset = t->Tchopset; + PL_formtarget = newSVsv(t->Tformtarget); + PL_bodytarget = newSVsv(t->Tbodytarget); + PL_toptarget = newSVsv(t->Ttoptarget); PL_statname = NEWSV(66,0); PL_maxscream = -1; |