Disable !a&&b, !b||a optimalization when PL_madskills
authorGerard Goossen <gerard@tty.nl>
Tue, 8 May 2007 16:09:17 +0000 (18:09 +0200)
committerDave Mitchell <davem@fdisolutions.com>
Sat, 12 May 2007 22:41:17 +0000 (22:41 +0000)
Message-Id:  <20070508164556.GB15860@ostwald>

p4raw-id: //depot/perl@31205

op.c

diff --git a/op.c b/op.c
index 30fb7fc..60537ad 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4240,7 +4240,8 @@ S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp)
     /* optimize "!a && b" to "a || b", and "!a || b" to "a && b" */
     if (first->op_type == OP_NOT
        && (first->op_flags & OPf_SPECIAL)
-       && (first->op_flags & OPf_KIDS)) {
+       && (first->op_flags & OPf_KIDS)
+       && !PL_madskills) {
        if (type == OP_AND || type == OP_OR) {
            if (type == OP_AND)
                type = OP_OR;
@@ -4251,11 +4252,7 @@ S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp)
            if (o->op_next)
                first->op_next = o->op_next;
            cUNOPo->op_first = NULL;
-#ifdef PERL_MAD
-           op_getmad(o,first,'O');
-#else
            op_free(o);
-#endif
        }
     }
     if (first->op_type == OP_CONST) {