diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-03-26 12:13:26 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-02 08:29:12 -0600 |
| commit | 863a4fdf042e8c89d00b011eee3a43004c9864c2 (patch) | |
| tree | cb806b4141795a3bad3a6c0b2aa65f39c232ec8a /lib/Unicode | |
| parent | f7ef59f744e8d509389671cb9dc18774e35a8805 (diff) | |
| download | perl-863a4fdf042e8c89d00b011eee3a43004c9864c2.tar.gz | |
UCD.t: Use v-string for easier version comparison
Diffstat (limited to 'lib/Unicode')
| -rw-r--r-- | lib/Unicode/UCD.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index b7b347b3f6..fc804dab8c 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -373,9 +373,9 @@ is($casefold->{full}, '0073 0073', 'casefold 0xDF full'); is($casefold->{simple}, "", 'casefold 0xDF simple'); is($casefold->{turkic}, "", 'casefold 0xDF turkic'); -# Do different tests depending on if version <= 3.1, or not. -(my $version = Unicode::UCD::UnicodeVersion) =~ /^(\d+)\.(\d+)/; -if (defined $1 && ($1 <= 2 || $1 == 3 && defined $2 && $2 <= 1)) { +# Do different tests depending on if version < 3.2, or not. +my $v_unicode_version = pack "C*", split /\./, Unicode::UCD::UnicodeVersion(); +if ($v_unicode_version lt v3.2.0) { $casefold = casefold(0x130); is($casefold->{code}, '0130', 'casefold 0x130 code'); @@ -711,7 +711,7 @@ while (<$propvalues>) { chomp; # Fix typo in official input file - s/CCC133/CCC132/g if $version eq "6.1.0"; + s/CCC133/CCC132/g if $v_unicode_version eq v6.1.0; my @fields = split /\s*;\s*/; # Fields are separated by semi-colons my $prop = shift @fields; # 0th field is the property, |