[5.004_61 PATCH] Make incompatible changes to RE engine NOW

p4raw-id: //depot/perl@785

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 28e05f1c53..907e9755d7 100644
--- a/op.c
+++ b/op.c
@@ -4261,7 +4261,7 @@ ck_index(OP *o)
     if (o->op_flags & OPf_KIDS) {
 	OP *kid = cLISTOPo->op_first->op_sibling;	/* get past pushmark */
 	if (kid && kid->op_type == OP_CONST)
-	    fbm_compile(((SVOP*)kid)->op_sv);
+	    fbm_compile(((SVOP*)kid)->op_sv, 0);
     }
     return ck_fun(o);
 }