diff --git a/locale.c b/locale.c
index f27e221f1c07..197e484c87f8 100644
--- a/locale.c
+++ b/locale.c
@@ -7848,12 +7848,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
index 5e540dde55c5..298350d1c5bb 100644
--- 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
index 87230b36c4c5..e1556f4dbbf2 100644
--- 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(".");