summaryrefslogtreecommitdiff
path: root/intrpvar.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2021-04-11 09:07:07 -0600
committerKarl Williamson <khw@cpan.org>2022-09-01 09:02:04 -0600
commit37b8263e6d237e6e7d0e92a6c311d9b6121ea57c (patch)
tree8172810d2202b388da9a7547831d94bdc014d973 /intrpvar.h
parent430ae200b5739fbee33c70114a733afecbced76c (diff)
downloadperl-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.h3
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)