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 (file)
--- 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;