numeric.c: Remove duplicate PERL_ARGS_ASSERT
authorKarl Williamson <khw@cpan.org>
Thu, 18 Jan 2018 22:53:42 +0000 (15:53 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 31 Jan 2018 05:58:15 +0000 (22:58 -0700)
By moving the call to one instance of this macro, the other can be
removed.

numeric.c

index 494e72e..04df0cf 100644 (file)
--- 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;