From: Gurusamy Sarathy Date: Sat, 22 Jan 2000 10:37:16 +0000 (+0000) Subject: #line directives without a filename leave the file name as it was X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f89480d452d435e4e828b4920af70120508474bb;p=p5sagit%2Fp5-mst-13.2.git #line directives without a filename leave the file name as it was instead of setting it to the script name (from Andrew Pimlott ) p4raw-id: //depot/perl@4837 --- diff --git a/toke.c b/toke.c index f2e01d6..e2e10f2 100644 --- a/toke.c +++ b/toke.c @@ -495,8 +495,6 @@ S_incline(pTHX_ char *s) *t = '\0'; if (t - s > 0) CopFILE_set(PL_curcop, s); - else - CopFILE_set(PL_curcop, PL_origfilename); *t = ch; CopLINE_set(PL_curcop, atoi(n)-1); }