serious bug introduced by G_VOID changes in 5.003_96: scalar

eval"" did not pop stack correctly; C<$a = eval "(1,2)x1">
is one symptom of the problem

p4raw-id: //depot/perl@4401

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 5e45a9c48f..5f937ba9df 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3124,6 +3124,7 @@ PP(pp_leaveeval)
 	    MEXTEND(mark,0);
 	    *MARK = &PL_sv_undef;
 	}
+	SP = MARK;
     }
     else {
 	/* in case LEAVE wipes old return values */