This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix MAD handling of package block syntax
[perl5.git] / perly.y
diff --git a/perly.y b/perly.y
index dcb6114..edbcb19 100644 (file)
--- 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); }
        ;