more ebcdic testsuite fixups (from Peter Prymmer)

[p5sagit/p5-mst-13.2.git] / t / lib / charnames.t

diff --git a/t/lib/charnames.t b/t/lib/charnames.t
index b03083e..9775b14 100644 (file)
--- a/t/lib/charnames.t
+++ b/t/lib/charnames.t
@@ -12,7 +12,7 @@ print "1..5\n";
 
 use charnames ':full';
 
-print "not " unless "Here\N{EXCLAMATION MARK}?" eq 'Here!?';
+print "not " unless "Here\N{EXCLAMATION MARK}?" eq "Here\041?";
 print "ok 1\n";
 
 {