locale.c: Initialize PL_underlying_numeric_obj

This probably doesn't matter, but it's better form to initialize it to a sane value.
Perl · May 9, 2021 · 32a54b1 · 32a54b1
1 parent be477b1
commit 32a54b1
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/locale.c b/locale.c
@@ -4798,6 +4798,11 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
     DEBUG_Lv(PerlIO_printf(Perl_debug_log, "created C object %p\n",
                            PL_C_locale_obj));
 
+#    ifdef USE_LOCALE_NUMERIC
+
+    PL_underlying_numeric_obj = duplocale(PL_C_locale_obj);
+
+#    endif
 #  endif
 #  ifdef USE_LOCALE_COLLATE