summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpsrc2tlpdb
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-10-19 17:58:39 +0000
committerKarl Berry <karl@freefriends.org>2007-10-19 17:58:39 +0000
commit7691b3dbbd1a847fc4927f92cdf9a6885d519de8 (patch)
treeb9c3fdd5b126a22fe2c6dc213f52292c75519026 /Master/tlpkg/bin/tlpsrc2tlpdb
parent7789e1c4ca22ab08e2fdc0071ad9208821f9c4ef (diff)
count packages, for fun.
git-svn-id: svn://tug.org/texlive/trunk@5240 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpsrc2tlpdb')
-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;
}