Add cautionary comment to .t

[perl5.git] / lib / charnames.t

diff --git a/lib/charnames.t b/lib/charnames.t
index 9efd07a..ce2bc34 100644 (file)
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -261,7 +261,8 @@ is($_, 'foobar');
 # SADAHIRO Tomoyuki's suggestion is to ensure that the UTF-8ness of both
 # arguments are indentical before calling index.
 # To do this can take advantage of the fact that unicore/Name.pl is 7 bit
-# (or at least should be). So assert that that it's true here.
+# (or at least should be). So assert that that it's true here.  EBCDIC
+# may be a problem (khw).
 
 my $names = do "unicore/Name.pl";
 ok(defined $names);