locale.c: Rmv redundant cBOOL()

strEQ and && already return booleans
Perl · May 9, 2021 · bdd936f · bdd936f
1 parent b70d7b7
commit bdd936f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/locale.c b/locale.c
@@ -1611,7 +1611,7 @@ S_new_numeric(pTHX_ const char *newnum)
      * THOUSEP can currently (but rarely) cause a race, so avoid doing that,
      * and just always change the locale if not C nor POSIX on those systems */
     if (! PL_numeric_standard) {
-        PL_numeric_standard = cBOOL(strEQ(C_decimal_point, my_langinfo(RADIXCHAR,
+        PL_numeric_standard = (   strEQ(C_decimal_point, my_langinfo(RADIXCHAR,
                                             FALSE /* Don't toggle locale */  ))
                                  && strEQ(C_thousands_sep,  my_langinfo(THOUSEP, FALSE)));
     }