This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/loc_tools.pl: Silence 'undef' warning
authorKarl Williamson <khw@cpan.org>
Thu, 28 Nov 2019 05:30:57 +0000 (22:30 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 28 Nov 2019 05:37:48 +0000 (22:37 -0700)
t/loc_tools.pl

index 86d694d..8c1955d 100644 (file)
@@ -340,7 +340,7 @@ sub find_locales ($;$) {
     _trylocale("C", $categories, \@Locale, $allow_incompatible);
     _trylocale("POSIX", $categories, \@Locale, $allow_incompatible);
 
-    if ($Config{d_has_C_UTF8} eq 'true') {
+    if ($Config{d_has_C_UTF8} && $Config{d_has_C_UTF8} eq 'true') {
         _trylocale("C.UTF-8", $categories, \@Locale, $allow_incompatible);
     }