From: Jarkko Hietaniemi Date: Thu, 12 Jul 2001 14:38:38 +0000 (+0000) Subject: Rename Unicode::UCD to UnicodeCD to avoid X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1189d1e4ec2aeb7f9bc79c90e6eb01859b7730ab;p=p5sagit%2Fp5-mst-13.2.git Rename Unicode::UCD to UnicodeCD to avoid messups with case-insensitive filesystems. p4raw-id: //depot/perl@11307 --- diff --git a/MANIFEST b/MANIFEST index 4ea5fa5..f552fe6 100644 --- a/MANIFEST +++ b/MANIFEST @@ -1487,8 +1487,8 @@ lib/unicode/To/Lower.pl Unicode character database lib/unicode/To/Title.pl Unicode character database lib/unicode/To/Upper.pl Unicode character database lib/unicode/UCD.html Unicode character database -lib/Unicode/UCD.pm Unicode character database -lib/Unicode/UCD.t See if Unicode character database works +lib/UnicodeCD.pm Unicode character database +lib/UnicodeCD.t See if Unicode character database works lib/unicode/Unicode.html Unicode character database lib/unicode/Unicode.txt Unicode character database lib/unicode/version The version of the Unicode diff --git a/lib/Unicode/UCD.pm b/lib/UnicodeCD.pm similarity index 96% rename from lib/Unicode/UCD.pm rename to lib/UnicodeCD.pm index cc5d192..f80d753 100644 --- a/lib/Unicode/UCD.pm +++ b/lib/UnicodeCD.pm @@ -1,4 +1,4 @@ -package Unicode::UCD; +package UnicodeCD; use strict; use warnings; @@ -19,17 +19,17 @@ use Carp; =head1 NAME -Unicode::UCD - Unicode character database +UnicodeCD - Unicode character database =head1 SYNOPSIS - use Unicode::UCD 'charinfo'; + use UnicodeCD 'charinfo'; my $charinfo = charinfo($codepoint); - use Unicode::UCD 'charblock'; + use UnicodeCD 'charblock'; my $charblock = charblock($codepoint); - use Unicode::UCD 'charscript'; + use UnicodeCD 'charscript'; my $charscript = charblock($codepoint); =head1 DESCRIPTION @@ -66,7 +66,7 @@ sub openunicode { =head2 charinfo - use Unicode::UCD 'charinfo'; + use UnicodeCD 'charinfo'; my $charinfo = charinfo(0x41); @@ -180,7 +180,7 @@ sub charinrange { =head2 charblock - use Unicode::UCD 'charblock'; + use UnicodeCD 'charblock'; my $charblock = charblock(0x41); my $charblock = charblock(1234); @@ -242,7 +242,7 @@ sub charblock { =head2 charscript - use Unicode::UCD 'charscript'; + use UnicodeCD 'charscript'; my $charscript = charscript(0x41); my $charscript = charscript(1234); @@ -305,7 +305,7 @@ sub charscript { =head2 charblocks - use Unicode::UCD 'charblocks'; + use UnicodeCD 'charblocks'; my $charblocks = charblocks(); @@ -321,7 +321,7 @@ sub charblocks { =head2 charscripts - use Unicode::UCD 'charscripts'; + use UnicodeCD 'charscripts'; my %charscripts = charscripts(); @@ -379,7 +379,7 @@ can also test whether a code point is in the I as returned by L and L or as the values of the hash returned by L and by using charinrange(): - use Unicode::UCD qw(charscript charinrange); + use UnicodeCD qw(charscript charinrange); $range = charscript('Hiragana'); print "looks like hiragana\n" if charinrange($range, $code); @@ -388,7 +388,7 @@ by L and by using charinrange(): =head2 compexcl - use Unicode::UCD 'compexcl'; + use UnicodeCD 'compexcl'; my $compexcl = compexcl("09dc"); @@ -428,7 +428,7 @@ sub compexcl { =head2 casefold - use Unicode::UCD 'casefold'; + use UnicodeCD 'casefold'; my %casefold = casefold("09dc"); @@ -498,7 +498,7 @@ sub casefold { =head2 casespec - use Unicode::UCD 'casespec'; + use UnicodeCD 'casespec'; my %casespec = casespec("09dc"); @@ -571,9 +571,9 @@ sub casespec { return $CASESPEC{$code}; } -=head2 Unicode::UCD::UnicodeVersion +=head2 UnicodeCD::UnicodeVersion -Unicode::UCD::UnicodeVersion() returns the version of the Unicode Character +UnicodeCD::UnicodeVersion() returns the version of the Unicode Character Database, in other words, the version of the Unicode standard the database implements. diff --git a/lib/Unicode/UCD.t b/lib/UnicodeCD.t similarity index 94% rename from lib/Unicode/UCD.t rename to lib/UnicodeCD.t index 6ebea8a..07c572c 100644 --- a/lib/Unicode/UCD.t +++ b/lib/UnicodeCD.t @@ -1,11 +1,11 @@ -use Unicode::UCD; +use UnicodeCD; use Test; use strict; BEGIN { plan tests => 111 }; -use Unicode::UCD 'charinfo'; +use UnicodeCD 'charinfo'; my $charinfo; @@ -93,7 +93,7 @@ ok($charinfo->{title}, ''); ok($charinfo->{block}, 'Hebrew'); ok($charinfo->{script}, 'Hebrew'); -use Unicode::UCD qw(charblock charscript); +use UnicodeCD qw(charblock charscript); # 0x0590 is in the Hebrew block but unused. @@ -120,7 +120,7 @@ ok($charinfo->{title}, ''); ok($charinfo->{block}, 'Latin-1 Supplement'); ok($charinfo->{script}, undef); -use Unicode::UCD qw(charblocks charscripts); +use UnicodeCD qw(charblocks charscripts); my $charblocks = charblocks(); @@ -151,7 +151,7 @@ $ranges = charscript('Ogham'); ok($ranges->[0]->[0], hex('1681')); ok($ranges->[0]->[1], hex('169a')); -use Unicode::UCD qw(charinrange); +use UnicodeCD qw(charinrange); $ranges = charscript('Cherokee'); ok(!charinrange($ranges, "139f")); @@ -159,14 +159,14 @@ ok( charinrange($ranges, "13a0")); ok( charinrange($ranges, "13f4")); ok(!charinrange($ranges, "13f5")); -ok(Unicode::UCD::UnicodeVersion, 3.1); +ok(UnicodeCD::UnicodeVersion, 3.1); -use Unicode::UCD qw(compexcl); +use UnicodeCD qw(compexcl); ok(!compexcl(0x0100)); ok( compexcl(0x0958)); -use Unicode::UCD qw(casefold); +use UnicodeCD qw(casefold); my $casefold; @@ -184,7 +184,7 @@ ok($casefold->{code} eq '00DF' && ok(!casefold(0x20)); -use Unicode::UCD qw(casespec); +use UnicodeCD qw(casespec); my $casespec; diff --git a/pod/perl572delta.pod b/pod/perl572delta.pod index 0dc191f..799aa06 100644 --- a/pod/perl572delta.pod +++ b/pod/perl572delta.pod @@ -235,7 +235,7 @@ L - a simple API to convert seconds to other date values =item * -L - Unicode Character Database +L - Unicode Character Database =back diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t index 0132fb9..d381e53 100644 --- a/t/lib/1_compile.t +++ b/t/lib/1_compile.t @@ -108,7 +108,9 @@ foreach my $module (@Core_Modules) { sub compile_module { my ($module) = $_[0]; - return scalar `$^X "-Ilib" t/lib/compmod.pl $module` =~ /^ok/; + my $out = scalar `$^X "-Ilib" t/lib/compmod.pl $module`; + print "# $out"; + return $out =~ /^ok/; } # Add here modules that have their own test scripts and therefore @@ -248,7 +250,7 @@ Time::Piece Time::gmtime Time::localtime Time::tm -Unicode::UCD +UnicodeUCD UNIVERSAL User::grent User::pwent