Add BmPREVIOUS_set(), and use it in the one place that BmPREVIOUS is

modified.

p4raw-id: //depot/perl@29525

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index daf88da933..1ae9459315 100644
--- a/util.c
+++ b/util.c
@@ -522,7 +522,7 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
 	}
     }
     BmRARE(sv) = s[rarest];
-    BmPREVIOUS(sv) = (U16)rarest;
+    BmPREVIOUS_set(sv, rarest);
     BmUSEFUL(sv) = 100;			/* Initial value */
     if (flags & FBMcf_TAIL)
 	SvTAIL_on(sv);