Change 13592: Re: [ID 20011209.005] perl "u2" eats RAM

[Jarkko Hietaniemi]

Change 13592 by jhi@alpha on 2001/12/10 13:21:06

        Subject: Re: [ID 20011209.005] perl "u2" eats RAM
        From: Wolfgang Laun <[EMAIL PROTECTED]>
        Date: Mon, 10 Dec 2001 08:45:20 +0100
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/pp_pack.c#9 edit

Differences ...

==== //depot/perl/pp_pack.c#9 (text) ====
Index: perl/pp_pack.c
--- perl/pp_pack.c.~1~  Mon Dec 10 06:30:06 2001
+++ perl/pp_pack.c      Mon Dec 10 06:30:06 2001
@@ -1843,7 +1843,7 @@
            fromstr = NEXTFROM;
            aptr = SvPV(fromstr, fromlen);
            SvGROW(cat, fromlen * 4 / 3);
-           if (len <= 1)
+           if (len <= 2)
                len = 45;
            else
                len = len / 3 * 3;
End of Patch.