for my ($foo,,, $bar) { ... } should parse as ($foo, $bar)

Multiple commas between the lexicals in the list shouldn't change the
parsing.

1 files changed, 1 insertions, 1 deletions

diff --git a/perly.y b/perly.y
index 2e2935c60e..068df58b32 100644
--- a/perly.y
+++ b/perly.y
@@ -1384,7 +1384,7 @@ my_scalar:	scalar
 
 /* A list of scalars for "for my ($foo, $bar) (@baz)"  */
 list_of_scalars:	list_of_scalars[list] PERLY_COMMA
-			{ parser->in_my = 0; $$ = $list; }
+			{ $$ = $list; }
 	|		list_of_scalars[list] PERLY_COMMA scalar
 			{
 			  $$ = op_append_elem(OP_LIST, $list, $scalar);