locale.c: Move debug stmt to earlier in fcn

Perl · May 9, 2021 · 8b00a62 · 8b00a62
1 parent a1782a9
commit 8b00a62
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/locale.c b/locale.c
@@ -1601,6 +1601,10 @@ S_new_numeric(pTHX_ const char *newnum)
 
     PERL_ARGS_ASSERT_NEW_NUMERIC;
 
+    DEBUG_L( PerlIO_printf(Perl_debug_log,
+                            "Called new_numeric with %s, PL_numeric_name=%s\n",
+                            newnum, PL_numeric_name));
+
     /* If this isn't actually a change, do nothing */
     if (PL_numeric_name && strEQ(PL_numeric_name, newnum)) {
         return;
@@ -1681,10 +1685,6 @@ S_new_numeric(pTHX_ const char *newnum)
 
     PL_numeric_standard = PL_numeric_underlying_is_standard;
 
-    DEBUG_L( PerlIO_printf(Perl_debug_log,
-                            "Called new_numeric with %s, PL_numeric_name=%s\n",
-                            newnum, PL_numeric_name));
-
     /* Keep LC_NUMERIC so that it has the C locale radix and thousands
      * separator.  This is for XS modules, so they don't have to worry about
      * the radix being a non-dot.  (Core operations that need the underlying