Remove PMf_MAYBE_CONST
authorFather Chrysostomos <sprout@cpan.org>
Thu, 11 Oct 2012 21:05:29 +0000 (14:05 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 12 Oct 2012 06:07:35 +0000 (23:07 -0700)
It was added in ce862d02d but has never been used.

op.c
op.h

index 65fb457..0240349 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4808,9 +4808,6 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg, I32 floor)
            op_prepend_elem(o->op_type, scalar(repl), o);
        }
        else {
-           if (curop == repl && !PM_GETRE(pm)) { /* Has variables. */
-               pm->op_pmflags |= PMf_MAYBE_CONST;
-           }
            NewOp(1101, rcop, 1, LOGOP);
            rcop->op_type = OP_SUBSTCONT;
            rcop->op_ppaddr = PL_ppaddr[OP_SUBSTCONT];
diff --git a/op.h b/op.h
index 3ddce78..399c02e 100644 (file)
--- a/op.h
+++ b/op.h
@@ -408,9 +408,6 @@ struct pmop {
  * OP_MATCH and OP_QR */
 #define PMf_ONCE       (1<<(PMf_BASE_SHIFT+1))
 
-/* replacement contains variables */
-#define PMf_MAYBE_CONST (1<<(PMf_BASE_SHIFT+2))
-
 /* PMf_ONCE has matched successfully.  Not used under threading. */
 #define PMf_USED        (1<<(PMf_BASE_SHIFT+3))