see if handles unsupported locales

Perl · Nov 29, 2023 · cc5fedc · cc5fedc
1 parent c9e6b69
commit cc5fedc
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/t/loc_tools.pl b/t/loc_tools.pl
@@ -188,11 +188,11 @@ ($$$$)
 
     local $SIG{__WARN__} = sub {
         $badutf8 = 1 if grep { /Malformed UTF-8/ } @_;
-        $unsupported = 1 if grep { /Locale .* is unsupported/i } @_;
-        $plays_well = 0 if grep {
-                    /The following characters .* may not have the same meaning as the Perl program expects(?#
-                   )|The Perl program will use the expected meanings/i
-            } @_;
+        #$unsupported = 1 if grep { /Locale .* is unsupported/i } @_;
+        #$plays_well = 0 if grep {
+        #            /The following characters .* may not have the same meaning as the Perl program expects(?#
+        #           )|The Perl program will use the expected meanings/i
+        #   } @_;
     };
 
     my $result;