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

p4raw-id: //depot/perl@5999

2 files changed, 8 insertions, 2 deletions

diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke
index f001ff7654..8db8027767 100644
--- a/t/pragma/warn/toke
+++ b/t/pragma/warn/toke
@@ -437,13 +437,14 @@ Ambiguous call resolved as CORE::time(), qualify as such or use & at - line 4.
 # toke.c
 use warnings ;
 eval <<'EOE';
+#  line 30 "foo"
+warn "yelp";
 {
-#line 30 "foo"
   $_ = " \x{123} " ;
 }
 EOE
 EXPECT
-
+yelp at foo line 30.
 ########
 # toke.c
 my $a = rand + 4 ;
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++;