This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
loc_tools.pl: Properly exclude iffy locales
authorKarl Williamson <khw@cpan.org>
Sun, 4 Mar 2018 19:51:25 +0000 (12:51 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 4 Mar 2018 19:55:20 +0000 (12:55 -0700)
This code (fragiley) uses the wording of a warning message to determine
if a locale has issues or not.  Commit
578a6a873a320fe64743b060dbd467f1865d205c updated the message this is
looking for, but failed to update this file correspondingly.

t/loc_tools.pl

index 8623e12..e4a54ea 100644 (file)
@@ -119,7 +119,7 @@ sub _trylocale ($$$$) { # For use only by other functions in this file!
         $badutf8 = 1 if grep { /Malformed UTF-8/ } @_;
         $plays_well = 0 if grep {
                     /Locale .* may not work well(?#
-                   )|The Perl program will use the standard meanings/i
+                   )|The Perl program will use the expected meanings/i
             } @_;
     };