diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-03 18:27:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-03 18:27:47 +0000 |
| commit | 4c8433661f9886ea9928ada6c218e87bb90d6b78 (patch) | |
| tree | 099719c7d26d21ac57c47faffd0e3bdd5f9b4f88 /lib/Unicode/Collate.pm | |
| parent | d135e0826fa12e553bd7097ce6e4ef5a65e18767 (diff) | |
| download | perl-4c8433661f9886ea9928ada6c218e87bb90d6b78.tar.gz | |
Upgrade to Unicode::Collate 0.26.
p4raw-id: //depot/perl@20452
Diffstat (limited to 'lib/Unicode/Collate.pm')
| -rw-r--r-- | lib/Unicode/Collate.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/Unicode/Collate.pm b/lib/Unicode/Collate.pm index 4be5aabd94..fa19afef4f 100644 --- a/lib/Unicode/Collate.pm +++ b/lib/Unicode/Collate.pm @@ -14,7 +14,7 @@ use File::Spec; require Exporter; -our $VERSION = '0.25'; +our $VERSION = '0.26'; our $PACKAGE = __PACKAGE__; our @ISA = qw(Exporter); @@ -350,16 +350,18 @@ sub parseEntry $k = '[.0000.0000.0000.0000]' if defined $self->{ignoreName} && $name =~ /$self->{ignoreName}/; - my $is_L3_ignorable; + my $is_L3_ignorable = TRUE; foreach my $arr ($k =~ /\[([^\[\]]+)\]/g) { # SPACEs allowed my $var = $arr =~ /\*/; # exactly /^\*/ but be lenient. my @wt = _getHexArray($arr); push @key, pack(VCE_TEMPLATE, $var, @wt); - $is_L3_ignorable = TRUE - if $wt[0] + $wt[1] + $wt[2] == 0; + $is_L3_ignorable = FALSE + if $wt[0] + $wt[1] + $wt[2] != 0; # if $arr !~ /[1-9A-Fa-f]/; NG # Conformance Test shows L3-ignorable is completely ignorable. + # For expansion, an entry $is_L3_ignorable + # if and only if "all" CEs are [.0000.0000.0000]. } $self->{entries}{$entry} = \@key; |