This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/run/locale.t: use 'warnings'
authorKarl Williamson <khw@cpan.org>
Thu, 29 Oct 2020 20:16:51 +0000 (14:16 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 30 Oct 2020 15:27:02 +0000 (09:27 -0600)
A symobl it was testing is either defined or not; was testing the wrong
thing

t/run/locale.t

index e072b63..8dd2a3a 100644 (file)
@@ -7,6 +7,7 @@ BEGIN {
 }
 
 use strict;
 }
 
 use strict;
+use warnings;
 
 ########
 # These tests are here instead of lib/locale.t because
 
 ########
 # These tests are here instead of lib/locale.t because
@@ -466,7 +467,7 @@ SKIP: {
         # anyway.  If the POSIX 2008 locale functions are being used, the
         # syntax becomes mostly irrelevant, so do the test anyway if they are.
         # It's a lot of trouble to figure out in a perl script.
         # anyway.  If the POSIX 2008 locale functions are being used, the
         # syntax becomes mostly irrelevant, so do the test anyway if they are.
         # It's a lot of trouble to figure out in a perl script.
-        if ($Config{d_setlocale_accepts_any_locale_name} eq 'true')
+        if ($Config{d_setlocale_accepts_any_locale_name})
         {
             skip("Can't distinguish between valid and invalid locale names on this system", 2);
         }
         {
             skip("Can't distinguish between valid and invalid locale names on this system", 2);
         }