EBCDIC: since #14519 made \N{...} to remap,

the test cannot expect an ASCII code point.

p4raw-id: //depot/perl@14525

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