In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a9aff56e0a39d32229b46a8f14ec04f03919406c?hp=0f1163b72c22d7ad867f40518fc0ffd4883462b1>
- Log ----------------------------------------------------------------- commit a9aff56e0a39d32229b46a8f14ec04f03919406c Author: Karl Williamson <[email protected]> Date: Wed Dec 7 19:04:52 2016 -0700 Revert "APItest/t/handy.t: Slightly simplify" This reverts commit 96970a3c8cbe5ad489ce831380f0e208315ea651. I misread the code and this commit should never have been done. The statements I thought were identical did have some differences. ----------------------------------------------------------------------- Summary of changes: ext/XS-APItest/t/handy.t | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t index acf3af5b4a..a85f701e99 100644 --- a/ext/XS-APItest/t/handy.t +++ b/ext/XS-APItest/t/handy.t @@ -242,6 +242,10 @@ 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')"; -- Perl5 Master Repository
