diff options
| author | Wolfgang Laun <Wolfgang.Laun@alcatel.at> | 2001-12-10 09:45:20 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-10 13:21:06 +0000 |
| commit | 19c9db5ec411efbf873c282752af2ce0de707e7b (patch) | |
| tree | fc3a8635b7ba1b88b50beccf94b5121b15fa2f01 /pp_pack.c | |
| parent | f0060996d7bafc6d707ef3515e2e04ddfaa8e018 (diff) | |
| download | perl-19c9db5ec411efbf873c282752af2ce0de707e7b.tar.gz | |
Re: [ID 20011209.005] perl "u2" eats RAM
Message-ID: <3C146810.60B5B7C0@alcatel.at>
p4raw-id: //depot/perl@13592
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1843,7 +1843,7 @@ PP(pp_pack) fromstr = NEXTFROM; aptr = SvPV(fromstr, fromlen); SvGROW(cat, fromlen * 4 / 3); - if (len <= 1) + if (len <= 2) len = 45; else len = len / 3 * 3; |