This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest/t/handy.t: Slightly simplify
authorKarl Williamson <khw@cpan.org>
Tue, 29 Nov 2016 01:01:42 +0000 (18:01 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 7 Dec 2016 05:59:17 +0000 (22:59 -0700)
This combines two adjacent 'if' blocks into a single one, as the 'if'
clause is identical in both.

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')";