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 /sv.c | |
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 'sv.c')
-rw-r--r-- | sv.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -15930,6 +15930,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, #ifdef USE_LOCALE_NUMERIC PL_numeric_name = SAVEPV(proto_perl->Inumeric_name); PL_numeric_radix_sv = sv_dup_inc(proto_perl->Inumeric_radix_sv, param); + PL_underlying_radix_sv = sv_dup_inc(proto_perl->Iunderlying_radix_sv, param); # if defined(USE_POSIX_2008_LOCALE) PL_underlying_numeric_obj = NULL; |