diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-16 06:32:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-16 06:32:36 +0000 |
| commit | 96d93ea327ba829c70f2d26609ef05d668364247 (patch) | |
| tree | 64f8c689187dbe83d0cb739434b6fb75ed88ada1 /util.c | |
| parent | 9f20e2cfb903d33f1df637b45bc92463e8540f62 (diff) | |
| download | perl-96d93ea327ba829c70f2d26609ef05d668364247.tar.gz | |
No declarations after statements ! (noticed by Sadahiro Tomoyuki)
p4raw-id: //depot/perl@28850
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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); |