diff options
| author | Karl Williamson <khw@cpan.org> | 2018-01-01 23:03:34 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-01-30 22:35:09 -0700 |
| commit | 4c68b8158cd1ae60d36ecf980d2cdf34a560ccaf (patch) | |
| tree | 0a65da969af2512d75589e491d198124c95b2440 /intrpvar.h | |
| parent | 9821811fe1a93f19deb209a286ad4fae53a3ebb1 (diff) | |
| download | perl-4c68b8158cd1ae60d36ecf980d2cdf34a560ccaf.tar.gz | |
Avoid some unnecessary changing of locales
The LC_NUMERIC locale category is kept so that generally the decimal
point (radix) is a dot. For some (mostly) output purposes, it needs to
be swapped into the program's current underlying locale so that a
non-dot can be printed.
This commit changes things so that if the current underlying locale uses
a decimal point, the swap doesn't happen, as it's not needed.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 2df01a3575..cbb789118e 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -614,6 +614,7 @@ PERLVARI(I, numeric_standard, int, TRUE) /* Assume C locale numerics */ PERLVARI(I, numeric_underlying, bool, TRUE) /* Assume underlying locale numerics */ +PERLVARI(I, numeric_underlying_is_standard, bool, TRUE) PERLVAR(I, numeric_name, char *) /* Name of current numeric locale */ PERLVAR(I, numeric_radix_sv, SV *) /* The radix separator if not '.' */ |