t/loc_tools.pl: Allow for multiple warnings
authorKarl Williamson <khw@cpan.org>
Tue, 10 Jan 2017 18:35:05 +0000 (11:35 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 10 Jan 2017 18:48:41 +0000 (11:48 -0700)
This code searched the first warning for particular patterns.  It really
should search all warnings for complete correctness.

t/loc_tools.pl

index a79f919..bc56af3 100644 (file)
@@ -83,8 +83,8 @@ sub _trylocale ($$$$) { # For use only by other functions in this file!
     use warnings 'locale';
 
     local $SIG{__WARN__} = sub {
-        $badutf8 = 1 if $_[0] =~ /Malformed UTF-8/;
-        $plays_well = 0 if $_[0] =~ /Locale .* may not work well/i
+        $badutf8 = 1 if grep { /Malformed UTF-8/ } @_;
+        $plays_well = 0 if grep { /Locale .* may not work well/i } @_;
     };
 
     # Incompatible locales aren't warned about unless using locales.