[perl #29340] Bizarre copy of ARRAY

make sure a pad op's flags are updated after optimising away
the assignment in my @a = () (see change 22520).

p4raw-id: //depot/perl@22781

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 02144e872b..b3b5c441c4 100644
--- a/op.c
+++ b/op.c
@@ -3130,6 +3130,7 @@ Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
 		&& (left->op_private & OPpLVAL_INTRO))
 	{
 	    op_free(right);
+	    left->op_flags &= ~(OPf_REF|OPf_SPECIAL);
 	    return left;
 	}
 	curop = list(force_list(left));