grok_numeric_radix(): Avoid recalculating

This function just determined that we are in the scope of 'use locale',
hence the underlying radix character should be used.  This commit
changes to use the macro that directly does that; previously the macro
that redundantly looks at if we are in the scope was used.

1 files changed, 1 insertions, 1 deletions

diff --git a/numeric.c b/numeric.c
index 50c85a406c..ea500e9b89 100644
--- a/numeric.c
+++ b/numeric.c
@@ -523,7 +523,7 @@ Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
 
     if (IN_LC(LC_NUMERIC)) {
         DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
-        STORE_LC_NUMERIC_SET_TO_NEEDED();
+        STORE_LC_NUMERIC_FORCE_TO_UNDERLYING();
         if (PL_numeric_radix_sv) {
             STRLEN len;
             const char * const radix = SvPV(PL_numeric_radix_sv, len);