The docs for SvRX and SvRXOK still refered to magic and the code snippet

[perl5.git] / perly.y

diff --git a/perly.y b/perly.y
index b8de63b..bf51922 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -442,7 +442,6 @@ barestmt:   PLUGSTMT
                          /* a block is a loop that happens once */
                          $$ = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
                                  (OP*)NULL, $1, $2, 0);
-                         PL_parser->copline = NOLINE;
                        }
        |       PACKAGE WORD WORD '{' remember
                        {