diff options
| -rwxr-xr-x | Build/tools/tpm-factory.pl | 22 |
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"; |