From e1e31b19d0339447876203ceb9b142485bfb59b2 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Tue, 4 Nov 2008 22:42:43 +0000
Subject: docs

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

(limited to 'Master')

diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb
index c70a7bd97e3..a7c24b4a667 100755
--- a/Master/tlpkg/bin/tlpsrc2tlpdb
+++ b/Master/tlpkg/bin/tlpsrc2tlpdb
@@ -63,10 +63,10 @@ sub main
     require TeXLive::TeXCatalogue;  # not at compile time, for now anyway.
     info ("$0: reading TeX Catalogue $opt_catalogue ...\n");
     $tlc = TeXLive::TeXCatalogue->new ("location" => $opt_catalogue);
+print "after cat\n";
   }
 
   my $tlpsrc_dir = "$opt_master/tlpkg/tlpsrc";
-
   # if we're regenerating the whole thing, get all our tlpsrc files.
   if ($opt_all) {
     chdir ($tlpsrc_dir) || die "chdir($tlpsrc_dir) failed: $!";
@@ -75,10 +75,13 @@ sub main
   
   info ("$0: reading Master $opt_master ...\n");
   my $tltree = TeXLive::TLTREE->new ("svnroot" => $opt_master);
+print "after new\n";
   if ($opt_fromfiles) {
     $tltree->init_from_files;
+print "after files\n";
   } else {
     $tltree->init_from_svn;
+print "after svn\n";
   }
 
   info ("$0: updating from tlpsrc ...\n");
-- 
cgit v1.2.3