Add the missing assignment to op_last that change 31798 missed out.

With this, state $zok = ...; will deparse.

p4raw-id: //depot/perl@31857

1 files changed, 5 insertions, 0 deletions

diff --git a/op.c b/op.c
index 1ebc84c325..d3fabf35b8 100644
--- a/op.c
+++ b/op.c
@@ -7065,6 +7065,11 @@ Perl_ck_sassign(pTHX_ OP *o)
 	    condop->op_targ = target;
 	    other->op_targ = target;
 
+	    /* Because we change the type of the op here, we will skip the
+	       assinment binop->op_last = binop->op_first->op_sibling; at the
+	       end of Perl_newBINOP(). So need to do it here. */
+	    cBINOPo->op_last = cBINOPo->op_first->op_sibling;
+
 	    return nullop;
 	}
     }