From: Larry Wall Date: Sat, 5 Sep 1998 23:38:29 +0000 (+0000) Subject: Implicit require during compile reset line numbering X-Git-Tag: accepted/trunk/20130322.191538~37162 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=63eb823a4363c9bf0207de13bc5cc0828f38a135;p=platform%2Fupstream%2Fperl.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;