This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
No declarations after statements ! (noticed by Sadahiro Tomoyuki)
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 16 Sep 2006 06:32:36 +0000 (06:32 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 16 Sep 2006 06:32:36 +0000 (06:32 +0000)
p4raw-id: //depot/perl@28850

util.c

diff --git a/util.c b/util.c
index 83adde1..bf77cdf 100644 (file)
--- 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);