summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-12-07 23:39:19 +0000
committerKarl Berry <karl@freefriends.org>2006-12-07 23:39:19 +0000
commitdd84ee65e40443d5b31beed25b07d91a51666e94 (patch)
tree57e6917b0c62c579f78a321faa365c09fb0db76c
parentf35919fc50f5a166dcd37a507b2337049ed358f6 (diff)
(check_dependencies): more top-level collections,
so the dep check comes out clean. git-svn-id: svn://tug.org/texlive/trunk@2618 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xBuild/tools/tpm-factory.pl22
1 files changed, 4 insertions, 18 deletions
diff --git a/Build/tools/tpm-factory.pl b/Build/tools/tpm-factory.pl
index 3e01e99689e..bde2a019241 100755
--- a/Build/tools/tpm-factory.pl
+++ b/Build/tools/tpm-factory.pl
@@ -191,37 +191,23 @@ sub check_dependencies {
&do_tree($tree, \&read_dependencies);
&do_tree($tree, \&collect_tpmfiles);
}
- # FIXME!!!
- if (-f "$opt_master_dir/texmf/tpm/scheme-full.tpm") {
- @l = ("texmf/tpm/scheme-full.tpm");
- }
- elsif (-f "$opt_master_dir/texmf/tpm/scheme-xemtex.tpm") {
- @l = ("texmf/tpm/scheme-xemtex.tpm");
- }
- else {
- die "No entry point, quitting...\n";
- }
+ my @l = ("texmf/tpm/scheme-full.tpm",
+ "texmf/tpm/scheme-tetex.tpm", # has some specific collections
+ "texmf/tpm/collection-wintools.tpm", # some utils we only provide
+ );
while ($#l >= 0) {
my $p = pop @l;
-# if (! -f "$opt_master_dir/$p") {
-# push @wrong, $p;
-# }
-# else {
&remove_list(\@tpm_files, "^" . $p . "\$");
push @l, @{$req{$p}};
-# print "p = $p, l = @l\n";
-# }
}
print "***********************************\n";
print "Wrong requirements: \n";
- print "***********************************\n";
map { print "$_ (";
map { print "$_ "; } @{$wrong{$_}};
print ")\n"; } &FileUtils::sort_uniq(keys %wrong);
print "\n";
print "***********************************\n";
print "Packages not required by anything: \n";
- print "***********************************\n";
map { print "$_\n"; } @tpm_files;
print "\n";
print "***********************************\n";