From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 19 Feb 2003 05:10:26 +0000 (+0000)
Subject: 'A' is not 65 everywhere.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe581ec7e70f830119f2a196166efcfaafaf0a43;p=p5sagit%2Fp5-mst-13.2.git

'A' is not 65 everywhere.

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

diff --git a/t/op/pack.t b/t/op/pack.t
index 1c971c6..9ac5d38 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -995,5 +995,5 @@ foreach my $template (qw(A Z c C s S i I l L n N v V q Q j J f d F D u U w)) {
 
 ok(pack('u2', 'AA'), "[perl #8026]"); # used to hang and eat RAM in perl 5.7.2
 
-$_ = 'A';
-ok(unpack('c') == 65); # defaulting to $_
+$_ = pack('c', 65); # 'A' would not be EBCDIC-friendly
+is(unpack('c'), 65, "one-arg unpack (change #18751)"); # defaulting to $_