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

[Jarkko Hietaniemi]

Change 14443 by jhi@alpha on 2002/01/27 15:59:31

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

Affected files ...

.... //depot/perl/t/op/pack.t#60 edit

Differences ...

==== //depot/perl/t/op/pack.t#60 (xtext) ====
Index: perl/t/op/pack.t
--- perl/t/op/pack.t.~1~        Sun Jan 27 09:15:05 2002
+++ perl/t/op/pack.t    Sun Jan 27 09:15:05 2002
@@ -680,17 +680,18 @@
     # 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);
 }
 
 {
End of Patch.