summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm7
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");
}
}
}