fix MAD handling of package block syntax

There was a broken TOKEN_GETMAD attempting to handle the label preceding a
package-block statement, where no label is actually possible.  The correct
behaviour for no label is a no-op, so just remove the TOKEN_GETMAD.

1 files changed, 1 insertions, 2 deletions

diff --git a/perly.y b/perly.y
index dcb6114d31..edbcb19b36 100644
--- a/perly.y
+++ b/perly.y
@@ -246,8 +246,7 @@ line	:	label cond
 			{ $$ = newSTATEOP(0, NULL,
 				 newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
 					    NOLINE, (OP*)NULL, $1,
-					    (OP*)NULL, 0));
-			  TOKEN_GETMAD($1,((LISTOP*)$$)->op_first,'L'); }
+					    (OP*)NULL, 0)); }
 	|	label PLUGSTMT
 			{ $$ = newSTATEOP(0, PVAL($1), $2); }
 	;