diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 23:10:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 23:10:55 +0000 |
| commit | 106bc2206dac2e824f7be45266a9170702354615 (patch) | |
| tree | d717c4c03f05634f50a48e43ea4bce8d409f2063 /perl.h | |
| parent | b1d91914ebabe76be933f5f742b7228fd199e7e5 (diff) | |
| download | perl-106bc2206dac2e824f7be45266a9170702354615.tar.gz | |
"10.", that is, decimal numbers can have no decimal part at all.
p4raw-id: //depot/perl@10415
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3437,7 +3437,7 @@ typedef struct am_table_short AMTS; #define IS_NUMERIC_RADIX(s, send) \ (PL_numeric_radix_sv \ && IN_LOCALE \ - && SvCUR(PL_numeric_radix_sv) < ((send)-(s)) \ + && SvCUR(PL_numeric_radix_sv) <= ((send)-(s)) \ && memEQ(s, SvPVX(PL_numeric_radix_sv), SvCUR(PL_numeric_radix_sv))) #define STORE_NUMERIC_LOCAL_SET_STANDARD() \ |