fix line renumbering bug in C<eval qq[#line 10 "X"\nwarn]>

p4raw-id: //depot/perl@5999

1 files changed, 5 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 5c1b945cba..737c9aef89 100644
--- a/toke.c
+++ b/toke.c
@@ -2656,6 +2656,11 @@ Perl_yylex(pTHX)
     case '#':
     case '\n':
 	if (PL_lex_state != LEX_NORMAL || (PL_in_eval && !PL_rsfp)) {
+	    if (*s == '#' && s == PL_linestart && PL_in_eval && !PL_rsfp) {
+		/* handle eval qq[#line 1 "foo"\n ...] */
+		CopLINE_dec(PL_curcop);
+		incline(s);
+	    }
 	    d = PL_bufend;
 	    while (s < d && *s != '\n')
 		s++;