diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-09 15:23:52 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-09 15:23:52 +0000 |
| commit | 5ca37ce9a896d8d8db4aa0d3ecf10ef4edb561a0 (patch) | |
| tree | 1718254999dbe668b54d36054dac05eaab62ae66 /util.c | |
| parent | 560b0c4689b6e31fce48b1c9d1501740be901c76 (diff) | |
| download | perl-5ca37ce9a896d8d8db4aa0d3ecf10ef4edb561a0.tar.gz | |
Numeric conversion tweaks suggested by Hugo and Nicholas.
p4raw-id: //depot/perl@10485
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -4082,8 +4082,10 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value) I32 ipart = 0; /* index into part[] */ I32 offcount; /* number of digits in least significant part */ +#ifdef USE_LOCALE_NUMERIC if (PL_numeric_radix_sv) point = SvPV(PL_numeric_radix_sv, pointlen); +#endif /* sign */ switch (*s) { |