diff options
| author | Wolfgang Laun <Wolfgang.Laun@alcatel.at> | 2001-11-26 20:56:32 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-27 00:08:23 +0000 |
| commit | 3bf38418777094bb685265138234ab6e04aa1d90 (patch) | |
| tree | 95f4dfb7d73489209146c2dfa2b08ea748e47dc9 /t | |
| parent | 52a55424e4624fc79eb8894fb91c5e2f4a9018ab (diff) | |
| download | perl-3bf38418777094bb685265138234ab6e04aa1d90.tar.gz | |
unpack P* uses random length for item
Message-ID: <200111261956320450.01E7217F@smtp.chello.at>
p4raw-id: //depot/perl@13288
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pack.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 5107510502..bb63cffad3 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -1,6 +1,6 @@ #!./perl -w -print "1..614\n"; +print "1..615\n"; BEGIN { chdir 't' if -d 't'; @@ -695,3 +695,12 @@ foreach ( $s eq "ABCABCABCABCABCABCABCABCABCABC" & $y == 42); } + +{ + # 615 + + # from Wolfgang Laun:Lfix in change #13288 + + eval { unpack("P*", "abc") }; + ok($@ =~ /P must have an explicit size/); +} |