Fix bug [perl #24508] Wrong assignment in nested assignment

together with subroutine call
Apparently concat still doesn't deal correctly with lexicals
in all cases. Disable the whole TARGET_MY optimisation for it.
(and remove the corresponding code from the peephole optimiser.)

p4raw-id: //depot/perl@21752

1 files changed, 1 insertions, 1 deletions

diff --git a/opcode.h b/opcode.h
index 4de3dee137..4d41ddf53c 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1544,7 +1544,7 @@ EXT U32 PL_opargs[] = {
 	0x0002251e,	/* i_add */
 	0x0002252e,	/* subtract */
 	0x0002251e,	/* i_subtract */
-	0x0002250e,	/* concat */
+	0x0002240e,	/* concat */
 	0x0000290e,	/* stringify */
 	0x0002250e,	/* left_shift */
 	0x0002250e,	/* right_shift */