remove private flag 1 from OP_REGCOMP

When an OP_REGCOMP is hand-rolled, the op_private flags field is
set to 1. This has been so since 1993, but it is undocumented and appears
completely unused. So remove it.

diff --git a/op.c b/op.c
index e2607fe..cd5b0a7 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4512,7 +4512,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg, I32 floor)
        rcop->op_flags |= OPf_KIDS
                            | ((PL_hints & HINT_RE_EVAL) ? OPf_SPECIAL : 0)
                            | (reglist ? OPf_STACKED : 0);
-       rcop->op_private = 1;
+       rcop->op_private = 0;
        rcop->op_other = o;
        if (reglist)
            rcop->op_targ = pad_alloc(rcop->op_type, SVs_PADTMP);