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

2 files changed, 15 insertions, 3 deletions

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index d50d3c9955..2cc0ece98e 100644
--- 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 7536e728e4..0434eb92d4 100644
--- 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';