diff options
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/locale.t b/lib/locale.t index f0457353a7..38b0d09fb3 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -1783,8 +1783,8 @@ foreach my $Locale (@Locale) { $ok13 = $w == 0; # Look for non-ASCII error messages, and verify that the first - # such is NOT in UTF-8 (the others almost certainly will be like - # the first) See [perl #119499]. + # such is in UTF-8 (the others almost certainly will be like the + # first). $ok14 = 1; $ok14_5 = 1; foreach my $err (keys %!) { @@ -1792,7 +1792,7 @@ foreach my $Locale (@Locale) { $! = eval "&Errno::$err"; # Convert to strerror() output my $strerror = "$!"; if ("$strerror" =~ /\P{ASCII}/) { - $ok14 = ! utf8::is_utf8($strerror); + $ok14 = utf8::is_utf8($strerror); no locale; $ok14_5 = "$!" !~ /\P{ASCII}/; last; @@ -1876,7 +1876,7 @@ foreach my $Locale (@Locale) { $problematical_tests{$locales_test_number} = 1; report_result($Locale, ++$locales_test_number, $ok14); - $test_names{$locales_test_number} = 'Verify that non-ASCII UTF-8 error messages are NOT in UTF-8'; + $test_names{$locales_test_number} = 'Verify that non-ASCII UTF-8 error messages are in UTF-8'; report_result($Locale, ++$locales_test_number, $ok14_5); $test_names{$locales_test_number} = '... and are ASCII outside "use locale"'; |