This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/handy.t: Slightly simplify
[perl5.git] / ext / XS-APItest / t / handy.t
index a85f701..acf3af5 100644 (file)
@@ -242,10 +242,6 @@ foreach my $name (sort keys %properties) {
                 my $truth = truth($matches && (utf8::native_to_unicode($i) < 128 || $i > 255));
                 is ($ret, $truth, "is${function}_LC_utf8( $display_name ) == $truth (C locale)");
             }
-        }
-
-        if ($name ne 'vertws' && defined $utf8_locale) {
-            use locale;
 
             POSIX::setlocale( &POSIX::LC_ALL, $utf8_locale);
             $ret = truth eval "test_is${function}_LC_utf8('$char')";