diff options
| author | Karl Williamson <khw@cpan.org> | 2021-04-11 09:07:07 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-09-01 09:02:04 -0600 |
| commit | 37b8263e6d237e6e7d0e92a6c311d9b6121ea57c (patch) | |
| tree | 8172810d2202b388da9a7547831d94bdc014d973 /intrpvar.h | |
| parent | 430ae200b5739fbee33c70114a733afecbced76c (diff) | |
| download | perl-37b8263e6d237e6e7d0e92a6c311d9b6121ea57c.tar.gz | |
locale.c: Save underlying radix character
When changing locales the new decimal point needs to be calculated.
This commit creates a new per-interpreter variable to save that
calculation, so it only has to be done when a new locale is set; prior
to this commit it was recalculated each time it was needed.
The calculation is still performed twice when the new locale is switched
into. But the redundant calculation will be removed in a couple of
commits hence.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index 22c2d8a9ad..f3005ba7bd 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -828,7 +828,8 @@ PERLVARI(I, numeric_underlying_is_standard, bool, TRUE) PERLVARI(I, numeric_standard, int, TRUE) /* Assume C locale numerics */ PERLVAR(I, numeric_name, char *) /* Name of current numeric locale */ -PERLVAR(I, numeric_radix_sv, SV *) /* The radix separator if not '.' */ +PERLVAR(I, numeric_radix_sv, SV *) /* The radix separator */ +PERLVAR(I, underlying_radix_sv, SV *) /* The radix in the program's current underlying locale */ #if defined(USE_LOCALE_NUMERIC) && defined(USE_POSIX_2008_LOCALE) |