This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
peephole optimise op_other branch in OP_ARGDEFELEM
[perl5.git] / op.c
diff --git a/op.c b/op.c
index 6b5ef81..e611dbe 100644 (file)
--- a/op.c
+++ b/op.c
@@ -14169,6 +14169,7 @@ Perl_rpeep(pTHX_ OP *o)
        case OP_DORASSIGN:
        case OP_RANGE:
        case OP_ONCE:
+       case OP_ARGDEFELEM:
            while (cLOGOP->op_other->op_type == OP_NULL)
                cLOGOP->op_other = cLOGOP->op_other->op_next;
            DEFER(cLOGOP->op_other);