diff options
author | Norbert Preining <preining@logic.at> | 2008-09-18 00:08:22 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-09-18 00:08:22 +0000 |
commit | 29e91340d2e118a9e8053fe7b2377315bb8ea541 (patch) | |
tree | bbb75431f819f21d2c6a9b2e67acc173cc053c6b /Master | |
parent | f34ddf83003cd6fe55ce42647b62181f71c95728 (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-x | Master/texmf/scripts/texlive/tlmgr.pl | 7 |
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'}}; |