Commit
30fcd6c41 tried to deparse ‘no 6’ correctly by checking
whether the kidop of a require has the OPpCONST_NOVER flag set,
but it did not check the op type, so it ended up with a false
positive for any binop (OPpCONST_NOVER being 2).
} else {
$self->unop(
$op, $cx,
- $op->first->private & OPpCONST_NOVER ? "no" : $opname,
+ $op->first->name eq 'const'
+ && $op->first->private & OPpCONST_NOVER
+ ? "no"
+ : $opname,
1, # llafr does not apply
);
}
####
# [perl #74740] -(f()) vs -f()
$_ = -(f());
+####
+# require <binop>
+require 'a' . $1;