diff options
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'}}; |