diff options
| author | Karl Williamson <khw@cpan.org> | 2018-02-23 10:46:53 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-02-24 22:08:41 -0700 |
| commit | 1649de0ca9ff7cf02d55848dca9e7104c2e6a4df (patch) | |
| tree | cdd64a9045f4db1461642e3989e16442276ca37a /t | |
| parent | 628ff75a4a7ac013dad43df7a53fcb55bf758ed7 (diff) | |
| download | perl-1649de0ca9ff7cf02d55848dca9e7104c2e6a4df.tar.gz | |
t/loc_tools.pl: Consider recently added warning
This file has functions that look for and return the valid locales on
the current system. A new incompatibility was discovered and a warning
generated for in 8b7358b96caf71db3213a7d72fc401e42ee0b2d.
This file should have been updated at that time to look for that message
to mean it the locale is not compatible. This commit updates it.
Diffstat (limited to 't')
| -rw-r--r-- | t/loc_tools.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/loc_tools.pl b/t/loc_tools.pl index 8acbdb6110..49bcc70596 100644 --- a/t/loc_tools.pl +++ b/t/loc_tools.pl @@ -109,7 +109,10 @@ sub _trylocale ($$$$) { # For use only by other functions in this file! local $SIG{__WARN__} = sub { $badutf8 = 1 if grep { /Malformed UTF-8/ } @_; - $plays_well = 0 if grep { /Locale .* may not work well/i } @_; + $plays_well = 0 if grep { + /Locale .* may not work well(?# + )|The Perl program will use the standard meanings/i + } @_; }; # Incompatible locales aren't warned about unless using locales. |