From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 27 Jan 2002 15:59:31 +0000 (+0000)
Subject: chr(42) ne '*'  if one is in EBCDIC.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=644d52eb61163033f4d40e8304200b279eda94fc;p=p5sagit%2Fp5-mst-13.2.git

chr(42) ne '*'  if one is in EBCDIC.

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

diff --git a/t/op/pack.t b/t/op/pack.t
index f6f9448..38d015b 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -680,17 +680,18 @@ foreach (
     # from Wolfgang Laun: fix in change #13163
 
     my $s = 'ABC' x 10;
-    my $x = 42;
+    my $t = '*';
+    my $x = ord($t);
     my $buf = pack( 'Z*/A* C',  $s, $x );
     my $y;
 
     my $h = $buf;
     $h =~ s/[^[:print:]]/./g;
     ( $s, $y ) = unpack( "Z*/A* C", $buf );
-    is($h, "30.ABCABCABCABCABCABCABCABCABCABC*");
+    is($h, "30.ABCABCABCABCABCABCABCABCABCABC$t");
     is(length $buf, 34);
     is($s, "ABCABCABCABCABCABCABCABCABCABC");
-    is($y, 42);
+    is($y, $x);
 }
 
 {