From 7691b3dbbd1a847fc4927f92cdf9a6885d519de8 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Fri, 19 Oct 2007 17:58:39 +0000
Subject: count packages, for fun.

git-svn-id: svn://tug.org/texlive/trunk@5240 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/bin/tlpsrc2tlpdb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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;
   }
-- 
cgit v1.2.3