From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 17 Dec 2005 17:40:44 +0000 (+0000)
Subject: Pull the definition of olderrno in sv_2pv_flags into the block where
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c81271c318db4fc452c901997c383f327c851326;p=p5sagit%2Fp5-mst-13.2.git

Pull the definition of olderrno in sv_2pv_flags into the block where
it's used.

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

diff --git a/sv.c b/sv.c
index fbf7ed0..1418cf7 100644
--- a/sv.c
+++ b/sv.c
@@ -2350,7 +2350,6 @@ char *
 Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags)
 {
     register char *s;
-    int olderrno;
 
     if (!sv) {
 	if (lp)
@@ -2509,11 +2508,12 @@ Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags)
 	    SvIsUV_on(sv);
     }
     else if (SvNOKp(sv)) {
+	const int olderrno = errno;
 	if (SvTYPE(sv) < SVt_PVNV)
 	    sv_upgrade(sv, SVt_PVNV);
 	/* The +20 is pure guesswork.  Configure test needed. --jhi */
 	s = SvGROW_mutable(sv, NV_DIG + 20);
-	olderrno = errno;	/* some Xenix systems wipe out errno here */
+	/* some Xenix systems wipe out errno here */
 #ifdef apollo
 	if (SvNVX(sv) == 0.0)
 	    (void)strcpy(s,"0");