This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add cautionary comment to .t
[perl5.git] / lib / charnames.t
index 9efd07a..ce2bc34 100644 (file)
@@ -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
 # 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);
 
 my $names = do "unicore/Name.pl";
 ok(defined $names);