(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

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";