diff options
| author | Karl Williamson <khw@cpan.org> | 2014-11-24 15:36:35 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-11-24 15:40:33 -0700 |
| commit | 89c7093464f07bc6732b2214dcfc332d703e8fa9 (patch) | |
| tree | 655e0e5821f51f971212542bf7fec3f1bf1807fd /t/uni | |
| parent | 6544e9b1a671b734ac69d3815ee779a1251412d8 (diff) | |
| download | perl-89c7093464f07bc6732b2214dcfc332d703e8fa9.tar.gz | |
PATCH [perl #123280] Turn off expected warnings in uni/fold.t
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/fold.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/uni/fold.t b/t/uni/fold.t index e3542c08c5..718f950d3c 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); |