diff options
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 73807529a3c..8cd00e9e725 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -86,7 +86,10 @@ sub from_file my $finished = 0; my $savedline = ""; - foreach my $line (@lines) { + my $lineno = 0; + for my $line (@lines) { + $lineno++; + # we allow continuation lines in tlpsrc files, i.e., lines with a \ at # the end if ($line =~ /^(.*)\\$/) { @@ -152,7 +155,7 @@ sub from_file push @postactions, $1 if ($1 ne ""); next; } else { - tlwarn("$srcfile:$.: unknown tlpsrc directive, please fix: $line\n"); + tlwarn("$srcfile:$lineno: unknown tlpsrc directive, fix fix: $line\n"); } } } |