From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 11 Feb 2002 23:44:09 +0000 (+0000)
Subject: EBCDIC: pack U bytes change.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c8584ec78a6d88676a1e386f72c4c02c94e9a95;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC: pack U bytes change.

p4raw-id: //depot/perl@14650
---

diff --git a/t/op/length.t b/t/op/length.t
index 0660d68..763a8c1 100644
--- a/t/op/length.t
+++ b/t/op/length.t
@@ -33,7 +33,7 @@ print "ok 3\n";
 }
 
 {
-    my $a = pack("U", 0x80);
+    my $a = pack("U", 0xFF);
 
     print "not " unless length($a) == 1;
     print "ok 6\n";
@@ -42,12 +42,12 @@ print "ok 3\n";
     use bytes;
     if (ord('A') == 193)
      {
-      printf "#%vx for 0x80\n",$a;
-      print "not " unless $a eq "\x8a\x67" && length($a) == 2;
+      printf "#%vx for 0xFF\n",$a;
+      print "not " unless $a eq "\x80\x45" && length($a) == 2;
      }
     else
      {
-      print "not " unless $a eq "\xc2\x80" && length($a) == 2;
+      print "not " unless $a eq "\xc3\xbf" && length($a) == 2;
      }
     print "ok 7\n";
     $test++;