diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-19 05:10:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-19 05:10:26 +0000 |
| commit | fe581ec7e70f830119f2a196166efcfaafaf0a43 (patch) | |
| tree | 1fecfe9907ac996c39b0dff024a3eda2af79c75b /t | |
| parent | 13dcffc60adeca175c32a1ea11ec8756d4853ad2 (diff) | |
| download | perl-fe581ec7e70f830119f2a196166efcfaafaf0a43.tar.gz | |
'A' is not 65 everywhere.
p4raw-id: //depot/perl@18752
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pack.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 1c971c66ce..9ac5d38f25 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 $_ |