diff options
| author | Wolfgang Laun <Wolfgang.Laun@alcatel.at> | 2001-11-21 11:23:16 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-21 13:52:30 +0000 |
| commit | b81060d6a6f72d4d81c48e5d8d024423810b6ce8 (patch) | |
| tree | cb8dfcc6984206c265db9d58e3273486b623581d /t/op | |
| parent | 0a7c7f4fca760548390159c148b40caeb4e5a91d (diff) | |
| download | perl-b81060d6a6f72d4d81c48e5d8d024423810b6ce8.tar.gz | |
Z*/[AZa]* fails to pack length properly
Message-ID: <200111211023160020.0050BD28@smtp.chello.at>
p4raw-id: //depot/perl@13163
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/pack.t | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index d0442034b2..5107510502 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -1,6 +1,6 @@ #!./perl -w -print "1..613\n"; +print "1..614\n"; BEGIN { chdir 't' if -d 't'; @@ -676,3 +676,22 @@ foreach ( ok(scalar unpack("w/a*", "\x02abc") eq "ab"); } + +{ + # 614 + + # from Wolfgang Laun: fix in change #13163 + + my $s = 'ABC' x 10; + my $x = 42; + my $buf = pack( 'Z*/A* C', $s, $x ); + my $y; + + my $h = $buf; + $h =~ s/[^[:print:]]/./g; + ( $s, $y ) = unpack( "Z*/A* C", $buf ); + ok($h eq "30.ABCABCABCABCABCABCABCABCABCABC*" && + length $buf == 34 && + $s eq "ABCABCABCABCABCABCABCABCABCABC" & + $y == 42); +} |