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.

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 2a3931e642..c63e263e7d 100644
--- a/perl.c
+++ b/perl.c
@@ -1160,6 +1160,8 @@ perl_destruct(pTHXx)
     PL_numeric_name = NULL;
     SvREFCNT_dec(PL_numeric_radix_sv);
     PL_numeric_radix_sv = NULL;
+    SvREFCNT_dec(PL_underlying_radix_sv);
+    PL_underlying_radix_sv  = NULL;
 #endif
 #ifdef USE_LOCALE_CTYPE
     Safefree(PL_ctype_name);