From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 7 Jan 2008 17:27:51 +0000 (+0000)
Subject: Save an upgrade each by first setting the NV on PL_sv_yes and PL_sv_no
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c1939273d48daaa779bfff86aacdcd7106ed3497;p=p5sagit%2Fp5-mst-13.2.git

Save an upgrade each by first setting the NV on PL_sv_yes and PL_sv_no
at interpreter construction time.

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

diff --git a/perl.c b/perl.c
index abebfa6..c7e9a90 100644
--- a/perl.c
+++ b/perl.c
@@ -301,14 +301,14 @@ perl_construct(pTHXx)
     sv_setpv(&PL_sv_no,PL_No);
     /* value lookup in void context - happens to have the side effect
        of caching the numeric forms.  */
-    SvIV(&PL_sv_no);
     SvNV(&PL_sv_no);
+    SvIV(&PL_sv_no);
     SvREADONLY_on(&PL_sv_no);
     SvREFCNT(&PL_sv_no) = (~(U32)0)/2;
 
     sv_setpv(&PL_sv_yes,PL_Yes);
-    SvIV(&PL_sv_yes);
     SvNV(&PL_sv_yes);
+    SvIV(&PL_sv_yes);
     SvREADONLY_on(&PL_sv_yes);
     SvREFCNT(&PL_sv_yes) = (~(U32)0)/2;