From 63eb823a4363c9bf0207de13bc5cc0828f38a135 Mon Sep 17 00:00:00 2001
From: Larry Wall <larry@wall.org>
Date: Sat, 5 Sep 1998 23:38:29 +0000
Subject: [PATCH] Implicit require during compile reset line numbering

p4raw-id: //depot/perl@1778
---
 pp_ctl.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/pp_ctl.c b/pp_ctl.c
index a886bef..da0f7a0 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2702,6 +2702,7 @@ PP(pp_require)
     PUSHBLOCK(cx, CXt_EVAL, SP);
     PUSHEVAL(cx, name, PL_compiling.cop_filegv);
 
+    SAVEI16(PL_compiling.cop_line);
     PL_compiling.cop_line = 0;
 
     PUTBACK;
-- 
2.7.4