In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/89c7093464f07bc6732b2214dcfc332d703e8fa9?hp=6544e9b1a671b734ac69d3815ee779a1251412d8>
- Log ----------------------------------------------------------------- commit 89c7093464f07bc6732b2214dcfc332d703e8fa9 Author: Karl Williamson <[email protected]> Date: Mon Nov 24 15:36:35 2014 -0700 PATCH [perl #123280] Turn off expected warnings in uni/fold.t ----------------------------------------------------------------------- Summary of changes: t/uni/fold.t | 2 ++ 1 file changed, 2 insertions(+) diff --git a/t/uni/fold.t b/t/uni/fold.t index e3542c0..718f950 100644 --- a/t/uni/fold.t +++ b/t/uni/fold.t @@ -455,7 +455,9 @@ my $utf8_locale = find_utf8_ctype_locale(); { use feature qw( fc ); use locale; + no warnings 'locale'; # Would otherwise warn is(fc("\x{1E9E}"), fc("\x{17F}\x{17F}"), 'fc("\x{1E9E}") eq fc("\x{17F}\x{17F}")'); + use warnings 'locale'; SKIP: { skip 'Can\'t find a UTF-8 locale', 1 unless defined $utf8_locale; setlocale(&LC_CTYPE, $utf8_locale); -- Perl5 Master Repository
