Rename Unicode::UCD to UnicodeCD to avoid

messups with case-insensitive filesystems.

p4raw-id: //depot/perl@11307

5 files changed, 32 insertions, 30 deletions

diff --git a/MANIFEST b/MANIFEST
index 4ea5fa5220..f552fe6492 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
index cc5d192227..f80d753444 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<range> as returned by
 L</charblock> and L</charscript> or as the values of the hash returned
 by L</charblocks> and </charscripts> 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</charblocks> and </charscripts> 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
index 6ebea8a1a6..07c572c90a 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 0dc191f91f..799aa062ec 100644
--- a/pod/perl572delta.pod
+++ b/pod/perl572delta.pod
@@ -235,7 +235,7 @@ L<Time::Seconds> - a simple API to convert seconds to other date values
 
 =item *
 
-L<Unicode::UCD> - Unicode Character Database
+L<UnicodeCD> - Unicode Character Database
 
 =back
 
diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index 0132fb9a28..d381e53de9 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