[5.8] Change 33727 (op.c) breaks constant folding in "elsif"

[Alexey Tourbin <at@altlinux.ru>]

(before change 33727)
$ perl -MO=Deparse -e 'use constant FOO=>0; if(FOO==1){print 1}elsif(FOO==2){print 2}'
use constant ('FOO', 0);
'???';
-e syntax OK
$

(after change 33727)
$ perl -MO=Deparse -e 'use constant FOO=>0; if(FOO==1){print 1}elsif(FOO==2){print 2}'
use constant ('FOO', 0);
if (do {
    !1
}) {
    print 2;
}
-e syntax OK
$

PGP signature

---

Follow-Ups from:

Nicholas Clark <nick@ccl4.org>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---