diff options
| -rw-r--r-- | lib/Unicode/UCD.pm | 8 | ||||
| -rw-r--r-- | lib/Unicode/UCD.t | 10 |
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'; |