Keep PL_numeric_radix_sv always set

Previously this was removed if the radix was dot.  By keeping it set to
a dot, we simplify some code, removing some branches.

1 files changed, 1 insertions, 1 deletions

diff --git a/numeric.c b/numeric.c
index ea500e9b89..494e72eca2 100644
--- a/numeric.c
+++ b/numeric.c
@@ -524,7 +524,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_FORCE_TO_UNDERLYING();
-        if (PL_numeric_radix_sv) {
+        {
             STRLEN len;
             const char * const radix = SvPV(PL_numeric_radix_sv, len);
             if (*sp + len <= send && memEQ(*sp, radix, len)) {