Change 16405 by jhi@alpha on 2002/05/05 00:13:04
Subject: Re: [Unicode::Collate] UCA Version number
From: SADAHIRO Tomoyuki <[EMAIL PROTECTED]>
Date: Sun, 05 May 2002 10:07:57 +0900
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Unicode/Collate.pm#11 edit
.... //depot/perl/lib/Unicode/Collate/Changes#6 edit
.... //depot/perl/lib/Unicode/Collate/README#6 edit
.... //depot/perl/lib/Unicode/Collate/t/test.t#8 edit
Differences ...
==== //depot/perl/lib/Unicode/Collate.pm#11 (text) ====
Index: perl/lib/Unicode/Collate.pm
--- perl/lib/Unicode/Collate.pm.~1~ Sat May 4 18:30:05 2002
+++ perl/lib/Unicode/Collate.pm Sat May 4 18:30:05 2002
@@ -13,7 +13,7 @@
require Exporter;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
our $PACKAGE = __PACKAGE__;
our @ISA = qw(Exporter);
@@ -27,21 +27,18 @@
our $UNICODE_VERSION;
-{
+eval { require Unicode::UCD };
+
+unless ($@) {
+ $UNICODE_VERSION = Unicode::UCD::UnicodeVersion();
+}
+else { # XXX, Perl 5.6.1
my($f, $fh);
foreach my $d (@INC) {
use File::Spec;
- $f = File::Spec->catfile($d, "unicore", "version");
- if (open($fh, $f)) {
- chomp($UNICODE_VERSION = <$fh>);
- close $fh;
- last;
- }
-
- # XXX, Perl 5.6.1
$f = File::Spec->catfile($d, "unicode", "Unicode.301");
if (open($fh, $f)) {
- $UNICODE_VERSION = "3.0.1";
+ $UNICODE_VERSION = '3.0.1';
close $fh;
last;
}
@@ -58,7 +55,7 @@
sub UCA_Version { "8.0" }
-sub Base_Unicode_Version { $UNICODE_VERSION }
+sub Base_Unicode_Version { $UNICODE_VERSION || 'unknown' }
##
## constructor
==== //depot/perl/lib/Unicode/Collate/Changes#6 (text) ====
Index: perl/lib/Unicode/Collate/Changes
--- perl/lib/Unicode/Collate/Changes.~1~ Sat May 4 18:30:05 2002
+++ perl/lib/Unicode/Collate/Changes Sat May 4 18:30:05 2002
@@ -1,9 +1,14 @@
Revision history for Perl extension Unicode::Collate.
+0.12 Sun May 05 09:43:10 2002
+ - add new methods, ->UCA_Version and ->Base_Unicode_Version.
+ - test fix: removed the needless requirement of Unicode::Normalize.
+ [reported by David Hand]
+
0.11 Fri May 03 02:28:10 2002
- fix: now derived collation elements can be used for Hangul Jamo
when their weights are not defined.
- [reported by [EMAIL PROTECTED]]
+ [reported by Andreas J. Koenig]
- fix: rearrangements had not worked.
- mentioned pleblem on index() in BUGS.
- more documents, more tests.
==== //depot/perl/lib/Unicode/Collate/README#6 (text) ====
Index: perl/lib/Unicode/Collate/README
--- perl/lib/Unicode/Collate/README.~1~ Sat May 4 18:30:05 2002
+++ perl/lib/Unicode/Collate/README Sat May 4 18:30:05 2002
@@ -1,4 +1,4 @@
-Unicode/Collate version 0.11
+Unicode/Collate version 0.12
===============================
Unicode::Collate - Unicode Collation Algorithm
==== //depot/perl/lib/Unicode/Collate/t/test.t#8 (text) ====
Index: perl/lib/Unicode/Collate/t/test.t
--- perl/lib/Unicode/Collate/t/test.t.~1~ Sat May 4 18:30:05 2002
+++ perl/lib/Unicode/Collate/t/test.t Sat May 4 18:30:05 2002
@@ -188,6 +188,7 @@
my $onlyABC = Unicode::Collate->new(
table => undef,
+ normalization => undef,
entry => << 'ENTRIES',
0061 ; [.0101.0020.0002.0061] # LATIN SMALL LETTER A
0041 ; [.0101.0020.0008.0041] # LATIN CAPITAL LETTER A
End of Patch.
