diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-10 01:08:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-10 01:08:26 +0000 |
| commit | 71ed62e67e487c60347cc3fc933e317ea26e38e2 (patch) | |
| tree | 037c7259feeef7ab06f4bf1ae4a492dbe750b014 /util.c | |
| parent | 4a09accc6c4d5aaf9842ce7a2c4ad0d7c9824951 (diff) | |
| download | perl-71ed62e67e487c60347cc3fc933e317ea26e38e2.tar.gz | |
Do locale specific separator if only in locale.
p4raw-id: //depot/perl@10490
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4083,7 +4083,7 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value) I32 offcount; /* number of digits in least significant part */ #ifdef USE_LOCALE_NUMERIC - if (PL_numeric_radix_sv) + if (PL_numeric_radix_sv && IN_LOCALE) point = SvPV(PL_numeric_radix_sv, pointlen); #endif |