From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Oct 2009 18:20:49 +0000 (+0200)
Subject: Move initialising PL_osname from S_init_predump_symbols to perl_construct().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d113631e107a7f1051ce04bff5d67ef5d96c83a;p=p5sagit%2Fp5-mst-13.2.git

Move initialising PL_osname from S_init_predump_symbols to perl_construct().
---

diff --git a/perl.c b/perl.c
index be11625..a15f86e 100644
--- a/perl.c
+++ b/perl.c
@@ -391,6 +391,8 @@ perl_construct(pTHXx)
     PL_timesbase.tms_cstime = 0;
 #endif
 
+    PL_osname = Perl_savepvn(aTHX_ STR_WITH_LEN(OSNAME));
+
     PL_registered_mros = newHV();
     /* Start with 1 bucket, for DFS.  It's unlikely we'll need more.  */
     HvMAX(PL_registered_mros) = 0;
@@ -3884,9 +3886,6 @@ S_init_predump_symbols(pTHX)
     GvIOp(tmpgv) = MUTABLE_IO(SvREFCNT_inc_simple(io));
 
     PL_statname = newSV(0);		/* last filename we did stat on */
-
-    Safefree(PL_osname);
-    PL_osname = savepv(OSNAME);
 }
 
 void