diff options
| author | Chip Salzenberg <chip@pobox.com> | 2003-02-19 03:54:45 +0000 |
|---|---|---|
| committer | chip <chip@pobox.com> | 2003-02-19 03:54:45 +0000 |
| commit | 13dcffc60adeca175c32a1ea11ec8756d4853ad2 (patch) | |
| tree | fe53ada3730ca7574b306ba6c164d7222487f5e4 /t | |
| parent | 8c63d93843745ff8766bc75490d35dc2b080c5c0 (diff) | |
| download | perl-13dcffc60adeca175c32a1ea11ec8756d4853ad2.tar.gz | |
Support one-parameter unpack(), which unpacks $_.
p4raw-id: //depot/perl@18751
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pack.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index a4c5db01d2..1c971c66ce 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 5826; +plan tests => 5827; use strict; use warnings; @@ -995,3 +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 $_ |