From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 11 Dec 2006 23:44:30 +0000 (+0000)
Subject: Fix allocation bug in change 29524.
X-Git-Tag: accepted/trunk/20130322.191538~16378
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d0688fc44cc7f676588fd73d97f4e90684ce4f55;p=platform%2Fupstream%2Fperl.git

Fix allocation bug in change 29524.

p4raw-id: //depot/perl@29526
---

diff --git a/util.c b/util.c
index 1ae9459..9718c54 100644
--- a/util.c
+++ b/util.c
@@ -510,6 +510,8 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
 		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);