diff options
Diffstat (limited to 'lib/Unicode/Collate')
-rw-r--r-- | lib/Unicode/Collate/Changes | 6 | ||||
-rw-r--r-- | lib/Unicode/Collate/README | 4 | ||||
-rw-r--r-- | lib/Unicode/Collate/t/index.t | 2 | ||||
-rw-r--r-- | lib/Unicode/Collate/t/test.t | 2 |
4 files changed, 9 insertions, 5 deletions
diff --git a/lib/Unicode/Collate/Changes b/lib/Unicode/Collate/Changes index 2f7b6e75a1..92fdfeb6de 100644 --- a/lib/Unicode/Collate/Changes +++ b/lib/Unicode/Collate/Changes @@ -1,4 +1,8 @@ -Revision history for Perl extension Unicode::Collate. +Revision history for Perl module Unicode::Collate. + +0.25 Mon Jun 06 23:20:17 2003 + - fix Makefile.PL. + - internal tweak (again): pack_U() and unpack_U(). 0.24 Thu Apr 02 23:12:54 2003 - internal tweak for (?un)pack 'U'. diff --git a/lib/Unicode/Collate/README b/lib/Unicode/Collate/README index fc0f68f025..8e4a1533ce 100644 --- a/lib/Unicode/Collate/README +++ b/lib/Unicode/Collate/README @@ -1,4 +1,4 @@ -Unicode/Collate version 0.24 +Unicode/Collate version 0.25 =============================== NAME @@ -54,7 +54,7 @@ SADAHIRO Tomoyuki <SADAHIRO@cpan.org> http://homepage1.nifty.com/nomenclator/perl/ - Copyright(C) 2001-2002, SADAHIRO Tomoyuki. Japan. All rights reserved. + Copyright(C) 2001-2003, SADAHIRO Tomoyuki. Japan. All rights reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff --git a/lib/Unicode/Collate/t/index.t b/lib/Unicode/Collate/t/index.t index 550cbe355d..59ad8d7ca8 100644 --- a/lib/Unicode/Collate/t/index.t +++ b/lib/Unicode/Collate/t/index.t @@ -1,6 +1,6 @@ BEGIN { - unless ("A" eq pack('U', 0x41) || "A" eq pack('U', ord("A"))) { + unless ("A" eq pack('U', 0x41)) { print "1..0 # Unicode::Collate " . "cannot stringify a Unicode code point\n"; exit 0; diff --git a/lib/Unicode/Collate/t/test.t b/lib/Unicode/Collate/t/test.t index 502e0b1ac0..9221f5a75f 100644 --- a/lib/Unicode/Collate/t/test.t +++ b/lib/Unicode/Collate/t/test.t @@ -1,6 +1,6 @@ BEGIN { - unless ("A" eq pack('U', 0x41) || "A" eq pack('U', ord("A"))) { + unless ("A" eq pack('U', 0x41)) { print "1..0 # Unicode::Collate " . "cannot stringify a Unicode code point\n"; exit 0; |