change#3728 was flawed (loop contexts saw the wrong statement

info, causing loop control constructs to not find the label);
disable OP_SETSTATE entirely and add a fix that is specifically
targetted at disabling the OP_LINESEQ optimization in else BLOCK,
which was what the original patch was supposed to fix

TODO: remove the remainder of the setstate logic if it can't
be used anywhere else (it isn't used anywhere now)

p4raw-link: @3728 on //depot/perl: 7399586d384137f7ae66bcc82a83b0df7dd429e5

p4raw-id: //depot/perl@4309

1 files changed, 1 insertions, 1 deletions

diff --git a/perly.y b/perly.y
index ddc0efcb6d..c8163e135e 100644
--- a/perly.y
+++ b/perly.y
@@ -200,7 +200,7 @@ sideff	:	error
 else	:	/* NULL */
 			{ $$ = Nullop; }
 	|	ELSE mblock
-			{ $$ = scope($2); }
+			{ ($2)->op_flags |= OPf_PARENS; $$ = scope($2); }
 	|	ELSIF '(' mexpr ')' mblock else
 			{ PL_copline = $1;
 			    $$ = newCONDOP(0, $3, scope($5), $6);