From: Jarkko Hietaniemi 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++;