Change 29526: Fix allocation bug in change 29524.

[Nicholas Clark]

Change 29526 by [EMAIL PROTECTED] on 2006/12/11 23:44:30

        Fix allocation bug in change 29524.

Affected files ...

... //depot/perl/util.c#598 edit

Differences ...

==== //depot/perl/util.c#598 (text) ====
Index: perl/util.c
--- perl/util.c#597~29525~      2006-12-11 14:52:46.000000000 -0800
+++ perl/util.c 2006-12-11 15:44:30.000000000 -0800
@@ -510,6 +510,8 @@
                table[*s] = (U8)i;
            s--, i++;
        }
+    } else {
+       Sv_Grow(sv, len + PERL_FBM_TABLE_OFFSET);
     }
     sv_magic(sv, NULL, PERL_MAGIC_bm, NULL, 0);        /* deep magic */
     SvVALID_on(sv);
End of Patch.