'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 (executable)
--- 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 $_