Unicode::UCD is not yet supported in EBCDIC platforms.

(Probably not an EBCDIC issue the way one would think
since no chr() et alia are used in UCD.pm.)

p4raw-id: //depot/perl@12904

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index d50d3c9..2cc0ece 100644 (file)
--- a/lib/Unicode/UCD.pm
+++ b/lib/Unicode/UCD.pm
@@ -50,8 +50,8 @@ Unicode::UCD - Unicode character database
 
 =head1 DESCRIPTION
 
-The Unicode::UCD module offers a simple interface to the Unicode Character
-Database.
+The Unicode::UCD module offers a simple interface to the Unicode
+Character Database.
 
 =cut
 
@@ -733,6 +733,10 @@ Character Database (the database is included in the Perl distribution).
 The filehandle is then kept open for further queries.  In other words,
 if you are wondering where one of your filehandles went, that's where.
 
+=head1 BUGS
+
+Does not yet support EBCDIC platforms.
+
 =head1 AUTHOR
 
 Jarkko Hietaniemi

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index 7536e72..0434eb9 100644 (file)
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -1,8 +1,16 @@
 use Unicode::UCD;
 
-use Test;
 use strict;
 
+BEGIN {
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
+}
+
+use Test;
+
 BEGIN { plan tests => 162 };
 
 use Unicode::UCD 'charinfo';