In Perl_fbm_compile, really rarest should be U32 not I32, as it is

set from a U32, and used as an array index.

p4raw-id: //depot/perl@29637

diff --git a/util.c b/util.c
index 2eded6f..2912092 100644 (file)
--- a/util.c
+++ b/util.c
@@ -478,7 +478,7 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
     register const U8 *s;
     register U32 i;
     STRLEN len;
-    I32 rarest = 0;
+    U32 rarest = 0;
     U32 frequency = 256;
 
     if (flags & FBMcf_TAIL) {