From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 16 Sep 2006 06:32:36 +0000 (+0000)
Subject: No declarations after statements ! (noticed by Sadahiro Tomoyuki)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96d93ea327ba829c70f2d26609ef05d668364247;p=p5sagit%2Fp5-mst-13.2.git

No declarations after statements ! (noticed by Sadahiro Tomoyuki)

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

diff --git a/util.c b/util.c
index 83adde1..bf77cdf 100644
--- a/util.c
+++ b/util.c
@@ -4318,8 +4318,9 @@ Perl_upg_version(pTHX_ SV *ver)
     if ( SvNOK(ver) ) /* may get too much accuracy */ 
     {
 	char tbuf[64];
+	STRLEN len;
 	SET_NUMERIC_STANDARD();
-	STRLEN len = my_snprintf(tbuf, sizeof(tbuf), "%.9"NVff, SvNVX(ver));
+	len = my_snprintf(tbuf, sizeof(tbuf), "%.9"NVff, SvNVX(ver));
 	SET_NUMERIC_LOCAL();
 	while (tbuf[len-1] == '0' && len > 0) len--;
 	version = savepvn(tbuf, len);