diff options
Diffstat (limited to 'cpan/Unicode-Collate/Collate/Locale.pm')
| -rw-r--r-- | cpan/Unicode-Collate/Collate/Locale.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/cpan/Unicode-Collate/Collate/Locale.pm b/cpan/Unicode-Collate/Collate/Locale.pm index 5dddfb82a7..39f04fcab5 100644 --- a/cpan/Unicode-Collate/Collate/Locale.pm +++ b/cpan/Unicode-Collate/Collate/Locale.pm @@ -4,12 +4,11 @@ use strict; use Carp; use base qw(Unicode::Collate); -our $VERSION = '0.68'; +our $VERSION = '0.70'; use File::Spec; (my $ModPath = $INC{'Unicode/Collate/Locale.pm'}) =~ s/\.pm$//; -my $KeyPath = File::Spec->catfile('allkeys.txt'); my $PL_EXT = '.pl'; my %LocaleFile = map { ($_, $_) } qw( @@ -71,7 +70,6 @@ sub new { if (exists $hash{table}) { croak "your table can't be used with Unicode::Collate::Locale"; } - $hash{table} = $KeyPath; my $href = _fetchpl($hash{accepted_locale}); while (my($k,$v) = each %$href) { @@ -297,7 +295,7 @@ tailored as well as it. For example, even though W is tailored, fullwidth W (C<U+FF37>), W with acute (C<U+1E82>), etc. are not tailored. The result may depend on whether source strings are normalized or not, and whether decomposed or composed. -Thus C<(normalization =E<gt> undef> is less preferred. +Thus C<(normalization =E<gt> undef)> is less preferred. =back @@ -305,7 +303,7 @@ Thus C<(normalization =E<gt> undef> is less preferred. The Unicode::Collate::Locale module for perl was written by SADAHIRO Tomoyuki, <SADAHIRO@cpan.org>. -This module is Copyright(C) 2004-2010, SADAHIRO Tomoyuki. Japan. +This module is Copyright(C) 2004-2011, SADAHIRO Tomoyuki. Japan. All rights reserved. This module is free software; you can redistribute it and/or |