numeric.c: Remove duplicate PERL_ARGS_ASSERT

By moving the call to one instance of this macro, the other can be
removed.

1 files changed, 2 insertions, 3 deletions

diff --git a/numeric.c b/numeric.c
index 494e72eca2..04df0cfa48 100644
--- a/numeric.c
+++ b/numeric.c
@@ -518,9 +518,10 @@ Scan and skip for a numeric decimal separator (radix).
 bool
 Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
 {
-#ifdef USE_LOCALE_NUMERIC
     PERL_ARGS_ASSERT_GROK_NUMERIC_RADIX;
 
+#ifdef USE_LOCALE_NUMERIC
+
     if (IN_LC(LC_NUMERIC)) {
         DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
         STORE_LC_NUMERIC_FORCE_TO_UNDERLYING();
@@ -539,8 +540,6 @@ Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
      * we may have data from different locales mixed */
 #endif
 
-    PERL_ARGS_ASSERT_GROK_NUMERIC_RADIX;
-
     if (*sp < send && **sp == '.') {
         ++*sp;
         return TRUE;