diff options
author | Karl Williamson <public@khwilliamson.com> | 2013-05-11 16:00:02 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2013-05-20 11:01:52 -0600 |
commit | 33bdd83dc2db4d07c1540394340770a6a07e793e (patch) | |
tree | db617db1976641bfe7c5c796de90e06c8a54e598 /lib | |
parent | 91638220a6a521d89235c0a8e51d53f96e0e67c8 (diff) | |
download | perl-33bdd83dc2db4d07c1540394340770a6a07e793e.tar.gz |
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.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/charnames.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index c58ccbe073..bf413a6bae 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: $!"; |