diff options
author | Zefram <zefram@fysh.org> | 2009-12-09 17:40:05 -0500 |
---|---|---|
committer | Jesse Vincent <jesse@bestpractical.com> | 2009-12-09 17:40:05 -0500 |
commit | 85613cabfd8d8a9b6b36082819bd6c38e1bb21c7 (patch) | |
tree | 4e5b689d5677b06ea580219d8a4d1b84ebcb3c2e /toke.c | |
parent | bb61cbbfe4f34b8082fca34dd9dd82cae6aaa146 (diff) | |
download | perl-85613cabfd8d8a9b6b36082819bd6c38e1bb21c7.tar.gz |
Fix for [perl #70910] wrong line number in syntax error message
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4363,7 +4363,8 @@ Perl_yylex(pTHX) PL_doextract = FALSE; } } - incline(s); + if (PL_rsfp) + incline(s); } while (PL_doextract); PL_oldoldbufptr = PL_oldbufptr = PL_bufptr = PL_linestart = s; PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); |