diff options
| author | John Peacock <jpeacock@rowman.com> | 2006-09-17 12:58:58 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-18 08:35:21 +0000 |
| commit | 63e3af20059610d29fa934e8330849fee9c115c5 (patch) | |
| tree | 83b0e7c382b22f88c106fa3eded33d18286edc00 /util.c | |
| parent | 7f39519f31fe8f3aa4f113c542472c46ec6c535a (diff) | |
| download | perl-63e3af20059610d29fa934e8330849fee9c115c5.tar.gz | |
Re: [perl #37714] XSUB.h version check may fail due to locale
Message-ID: <450DB712.4040703@rowman.com>
p4raw-id: //depot/perl@28864
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -4303,11 +4303,10 @@ Perl_upg_version(pTHX_ SV *ver) if ( SvNOK(ver) ) /* may get too much accuracy */ { char tbuf[64]; - STRLEN len; #ifdef USE_LOCALE_NUMERIC char *loc = setlocale(LC_NUMERIC, "C"); #endif - len = my_snprintf(tbuf, sizeof(tbuf), "%.9"NVff, SvNVX(ver)); + STRLEN len = my_snprintf(tbuf, sizeof(tbuf), "%.9"NVff, SvNVX(ver)); #ifdef USE_LOCALE_NUMERIC setlocale(LC_NUMERIC, loc); #endif |