From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 6 Feb 2002 04:44:33 +0000 (+0000)
Subject: EBCDIC: 0x41 is not cricket.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed46d1101c4681a31a79445e8edbb2ec2fd5341a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
 
-
-
-