From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 6 Oct 1998 21:16:34 +0000 (+0000)
Subject: fix $/ init for USE_THREADS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d14cc18f7ccf6279e31fce0414a00b7ff3bd076;p=p5sagit%2Fp5-mst-13.2.git

fix $/ init for USE_THREADS

p4raw-id: //depot/perl@1937
---

diff --git a/perl.c b/perl.c
index 0d6b150..cb0e624 100644
--- a/perl.c
+++ b/perl.c
@@ -1939,7 +1939,7 @@ init_main_stash(void)
     PL_debstash = GvHV(gv_fetchpv("DB::", GV_ADDMULTI, SVt_PVHV));
     PL_globalstash = GvHV(gv_fetchpv("CORE::GLOBAL::", GV_ADDMULTI, SVt_PVHV));
     /* We must init $/ before switches are processed. */
-    sv_setpvn(GvSV(gv_fetchpv("/", TRUE, SVt_PV)), "\n", 1);
+    sv_setpvn(perl_get_sv("/", TRUE), "\n", 1);
 }
 
 STATIC void