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 /pp_pack.c | |
| 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 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1386,7 +1386,7 @@ PP(pp_pack) case 'a': fromstr = NEXTFROM; aptr = SvPV(fromstr, fromlen); - if (pat[-1] == '*') { + if (pat[lengthcode ? -2 : -1] == '*') { /* -2 after '/' */ len = fromlen; if (datumtype == 'Z') ++len; |