From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 8 Nov 2001 21:49:20 +0000 (+0000)
Subject: Unicode::UCD is not yet supported in EBCDIC platforms.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b731da2c33117cac0e5992c0f888f85a1f64ba7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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';