Fix allocation bug in change 29524.

p4raw-id: //depot/perl@29526

diff --git a/util.c b/util.c
index 1ae9459..9718c54 100644 (file)
--- 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);