summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-09-18 00:08:22 +0000
committerNorbert Preining <preining@logic.at>2008-09-18 00:08:22 +0000
commit29e91340d2e118a9e8053fe7b2377315bb8ea541 (patch)
treebbb75431f819f21d2c6a9b2e67acc173cc053c6b /Master
parentf34ddf83003cd6fe55ce42647b62181f71c95728 (diff)
add some debug statements to tlmgr check files, and ignore tlpkg/installer
git-svn-id: svn://tug.org/texlive/trunk@10627 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl7
1 files changed, 7 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index ee3bd7025fc..58377ec22be 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -1262,7 +1262,10 @@ sub check_files {
my $ret = 0;
my %filetopacks;
my $Master = $localtlpdb->root;
+ debug("Collecting all files of all packages\n");
for my $p ($localtlpdb->list_packages()) {
+ # ignore files in the installer
+ next if ($p eq "00texlive.installer");
my $tlp = $localtlpdb->get_package($p);
for my $f ($tlp->all_files) {
push @{$filetopacks{$f}}, $p;
@@ -1270,6 +1273,7 @@ sub check_files {
}
my @multiple = ();
my @missing = ();
+ debug("Checking for occurrences and existence of all files\n");
for (keys %filetopacks) {
push @missing, $_ if (! -r "$Master/$_");
my @foo = @{$filetopacks{$_}};
@@ -1322,11 +1326,14 @@ sub check_files {
texmf.cnf
install-tl.log
tlpkg/texlive.profile
+ tlpkg/installer
!;
my $tltree = TeXLive::TLTREE->new ("svnroot" => $Master);
if ($svn) {
+ debug("Initializine TLTREE from svn\n");
$tltree->init_from_svn;
} else {
+ debug("Initializine TLTREE from find\n");
$tltree->init_from_files;
}
my %tltreefiles = %{$tltree->{'_allfiles'}};