diff options
| -rwxr-xr-x | Master/tlpkg/bin/tlpsrc2tlpdb | 4 |
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; } |