This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
numeric.c: Remove unnecessary test
authorKarl Williamson <khw@cpan.org>
Mon, 2 Jun 2014 19:52:38 +0000 (13:52 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 5 Jun 2014 18:23:02 +0000 (12:23 -0600)
The second test won't be true unless the first one is (but not vice
versa), so no need to test the first.

numeric.c

index 3c2df26..7e95b46 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -860,7 +860,7 @@ Perl_my_atof(pTHX_ const char* s)
 
     {
         DECLARE_STORE_LC_NUMERIC_SET_TO_NEEDED();
-        if (PL_numeric_local && PL_numeric_radix_sv && IN_SOME_LOCALE_FORM) {
+        if (PL_numeric_radix_sv && IN_SOME_LOCALE_FORM) {
             const char *standard = NULL, *local = NULL;
             bool use_standard_radix;