The 'if' test should be the opposite of what it is. I believe I had it
this way for forcing the branch to be taken during testing, and forgot
to restore it. It only matters if Perl is compiled with early Unicodes,
or on a non-ASCII platform.
my @name_aliases;
use Unicode::UCD;
- if (ord('A') != 65
- || pack( "C*", split /\./, Unicode::UCD::UnicodeVersion()) ge v6.1.0)
+ if (ord('A') == 65
+ && pack( "C*", split /\./, Unicode::UCD::UnicodeVersion()) ge v6.1.0)
{
open my $fh, "<", "../../lib/unicore/NameAliases.txt"
or die "Can't open ../../lib/unicore/NameAliases.txt: $!";