From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 29 Dec 2006 00:17:18 +0000 (+0000)
Subject: In Perl_fbm_compile, really rarest should be U32 not I32, as it is
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cb742848c9b738246343b6914f882e40ad9b01b2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {