Revert "define numeric values to be C when no USE_NUMERIC"

This reverts commit 9bb7ff6531bf9e28d635a71e6d55c752a995da2d.
Perl · Nov 22, 2023 · 0cd795d · 0cd795d
1 parent d79d8ad
commit 0cd795d
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 7 deletions.
diff --git a/locale.c b/locale.c
@@ -7837,12 +7837,6 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
     PL_underlying_radix_sv = newSV(1);
     Newxz(PL_numeric_name, 1, char);    /* Single NUL character */
 
-#  else
-
-    PL_numeric_radix_sv    = newSVpv(C_decimal_point, 0);
-    PL_underlying_radix_sv = newSVpv(C_decimal_point, 0);
-    NewCopy("C", PL_numeric_name, 2, char);
-
 #  endif
 #  ifdef USE_LOCALE_COLLATE
 

diff --git a/perl.c b/perl.c
@@ -1165,12 +1165,14 @@ perl_destruct(pTHXx)
         PL_scratch_locale_obj = NULL;
     }
 #endif
+#ifdef USE_LOCALE_NUMERIC
     Safefree(PL_numeric_name);
     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);
     PL_ctype_name = NULL;

diff --git a/sv.c b/sv.c
@@ -16094,7 +16094,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 #endif
 
 #ifdef USE_LOCALE_NUMERIC
-    // SAVEPV?
     PL_numeric_name	= SAVEPV("C");
     PL_numeric_radix_sv	= newSVpvs(".");
     PL_underlying_radix_sv = newSVpvs(".");