diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-30 20:26:33 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-30 20:26:33 +0000 |
| commit | eff180cdf66484c41f3aacf26a4fd81d2be06de0 (patch) | |
| tree | 41b13d1fdeacac1cc47a39c570a00084458e0a0c /perl.h | |
| parent | 1d61552279452016689faf899b5e1f418a500278 (diff) | |
| download | perl-eff180cdf66484c41f3aacf26a4fd81d2be06de0.tar.gz | |
Fix for the fa_IR locale failure. The reason for the failure
was that Perl was assuming the decimal separator aka the radix
separator is one character. The Farsi-Iranian locale crushed
that bad assumption since there the separator is 'Momayyez',
glyphwise looking somewhat like a slash, and in Unicode UTF-8
encoded in two bytes, 0xd9 0xab.
p4raw-id: //depot/perl@8625
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3217,9 +3217,9 @@ typedef struct am_table_short AMTS; #define SET_NUMERIC_LOCAL() \ set_numeric_local(); -#define IS_NUMERIC_RADIX(c) \ +#define IS_NUMERIC_RADIX(s) \ ((PL_hints & HINT_LOCALE) && \ - PL_numeric_radix && (c) == PL_numeric_radix) + PL_numeric_radix && memEQ(s, SvPVX(PL_numeric_radix), SvCUR(PL_numeric_radix))) #define STORE_NUMERIC_LOCAL_SET_STANDARD() \ bool was_local = (PL_hints & HINT_LOCALE) && PL_numeric_local; \ |