From: Larry Wall <larry@wall.org>
Date: Sat, 5 Sep 1998 23:38:29 +0000 (+0000)
Subject: Implicit require during compile reset line numbering
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63eb823a4363c9bf0207de13bc5cc0828f38a135;p=p5sagit%2Fp5-mst-13.2.git

Implicit require during compile reset line numbering

p4raw-id: //depot/perl@1778
---

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;