summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>1998-07-19 16:23:30 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>1998-07-19 16:23:30 +0000
commit84fee439e17f74d72fd55282112c02bc24f1cad2 (patch)
tree10d749d3874391435ad0de9adf362b83deaac7e6 /util.c
parentbde848c562646d502628341cc25a35dd857800b2 (diff)
downloadperl-84fee439e17f74d72fd55282112c02bc24f1cad2.tar.gz
PL_ minir tidy up
p4raw-id: //depot/ansiperl@1568
Diffstat (limited to 'util.c')
-rw-r--r--util.c22
1 files changed, 11 insertions, 11 deletions
diff --git a/util.c b/util.c
index 2a140ee2d9..5c27bee456 100644
--- a/util.c
+++ b/util.c
@@ -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;