locale.c: Silence compiler warning about S_new_numeric

This function is not used unless LC_NUMERIC is enabled, so need not be
defined unless that is true.

1 files changed, 3 insertions, 9 deletions

diff --git a/locale.c b/locale.c
index 3941c296eb..fe0719bd4f 100644
--- a/locale.c
+++ b/locale.c
@@ -1604,19 +1604,13 @@ S_setlocale_failure_panic_i(pTHX_
                                       || defined(HAS_SNPRINTF))
 #    define CAN_CALCULATE_RADIX
 #  endif
+#  ifdef USE_LOCALE_NUMERIC
 
 STATIC void
 S_new_numeric(pTHX_ const char *newnum)
 {
     PERL_ARGS_ASSERT_NEW_NUMERIC;
 
-#  ifndef USE_LOCALE_NUMERIC
-
-    PERL_ARGS_ASSERT_NEW_NUMERIC;
-    PERL_UNUSED_ARG(newnum);
-
-#  else
-
     /* Called after each libc setlocale() call affecting LC_NUMERIC, to tell
      * core Perl this and that 'newnum' is the name of the new locale, and we
      * are switched into it.  It installs this locale as the current underlying
@@ -1759,10 +1753,10 @@ S_new_numeric(pTHX_ const char *newnum)
         set_numeric_standard();
     }
 
-#  endif
-
 }
 
+#  endif
+
 void
 Perl_set_numeric_standard(pTHX)
 {