This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix yet another USE_THREADS leak due to failure to free stacks
[perl5.git] / util.c
diff --git a/util.c b/util.c
index eb52ee5..af6f137 100644 (file)
--- a/util.c
+++ b/util.c
@@ -2784,7 +2784,7 @@ new_struct_thread(struct perl_thread *t)
     curpm = t->Tcurpm;         /* XXX No PMOP ref count */
     nrs = newSVsv(t->Tnrs);
     rs = SvREFCNT_inc(nrs);
-    last_in_gv = (GV*)SvREFCNT_inc(t->Tlast_in_gv);
+    last_in_gv = Nullgv;
     ofslen = t->Tofslen;
     ofs = savepvn(t->Tofs, ofslen);
     defoutgv = (GV*)SvREFCNT_inc(t->Tdefoutgv);