summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/tlpkg/bin/tlpsrc2tlpdb4
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb
index 170f932f442..4a87dd76765 100755
--- a/Master/tlpkg/bin/tlpsrc2tlpdb
+++ b/Master/tlpkg/bin/tlpsrc2tlpdb
@@ -69,6 +69,7 @@ sub main
warn "$0: updating from tlpsrc ...\n";
my $tldb = TeXLive::TLPDB->new;
my $last = "";
+ my $src_count = 0;
foreach my $f (@ARGV) {
if ($opt_all) { # progress report
my $first = lc (substr ($f, 0, 1));
@@ -76,6 +77,7 @@ sub main
print STDERR "$first ";
$last = $first;
}
+ $src_count++;
}
my $tlsrc = new TeXLive::TLPSRC;
$tlsrc->from_file ($f);
@@ -96,7 +98,7 @@ sub main
our $TLPDB = ">$opt_master/texlive.tlpdb";
open (TLPDB) || die "open($TLPDB) failed: $!";
$tldb->writeout (*TLPDB);
- warn "$0: wrote $TLPDB.\n";
+ warn "$0: wrote $src_count packages $TLPDB.\n";
} else {
$tldb->writeout;
}