From cc5fedc533832931385ceebf995850353b8fc6b0 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 29 Nov 2023 06:50:26 -0700 Subject: [PATCH] see if handles unsupported locales --- t/loc_tools.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/t/loc_tools.pl b/t/loc_tools.pl index d8bef1a745b6..2b43c8d6d280 100644 --- 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;