From 33bdd83dc2db4d07c1540394340770a6a07e793e Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 11 May 2013 16:00:02 -0600 Subject: [PATCH] lib/charnames.t: Fix wrongly complemented test 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. --- lib/charnames.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/charnames.t b/lib/charnames.t index c58ccbe..bf413a6 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -1086,8 +1086,8 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}", 'V 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: $!"; -- 1.8.3.1