Fix allocation bug in change 29524.

p4raw-id: //depot/perl@29526

1 files changed, 2 insertions, 0 deletions

diff --git a/util.c b/util.c
index 1ae9459315..9718c54516 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);