EBCDIC: 0x41 is not cricket.

p4raw-id: //depot/perl@14568

diff --git a/ext/Encode/t/Encode.t b/ext/Encode/t/Encode.t
index 3f5d206..ffc4780 100644 (file)
--- a/ext/Encode/t/Encode.t
+++ b/ext/Encode/t/Encode.t
@@ -112,7 +112,7 @@ for my $i (256,128,129,256)
  }
 
 # Spot check a few points in/out of utf8
-for my $i (0x41,128,256,0x20AC)
+for my $i (ord('A'),128,256,0x20AC)
  {
   my $c = chr($i);
   my $o = encode_utf8($c);
@@ -135,6 +135,3 @@ $a = "\x{100}";
 chop $a;
 ok(  is_utf8($a)); # weird but true: an empty UTF-8 string
 
-
-
-