install-tl: continue if there is a package missing, don't know whether this

is a good idea, but better than dieing.


git-svn-id: svn://tug.org/texlive/trunk@9937 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 10 insertions, 1 deletions

diff --git a/Master/install-tl b/Master/install-tl
index ff89060380e..a02a65e5eaa 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -617,6 +617,12 @@ sub calc_depends {
     # loop over all the pre_selected and add them
     foreach $p (@pre_selected) {
       ddebug("pre_selected $p\n");
+      my $pkg = $tlpdb->get_package($p);
+      if (!defined($pkg)) {
+        tlwarn("W: $p is mentioned somewhere but not available, disabling it!\n");
+        $install{$p} = 0;
+        next;
+      }
       foreach my $p_dep ($tlpdb->get_package($p)->depends) {
         if ($p_dep =~ m/^(.*)\.ARCH$/) {
           my $foo = "$1";
@@ -650,7 +656,10 @@ sub calc_depends {
   foreach $p (keys %install) {
     my $tlpobj = $tlpdb->get_package($p);
     if (not(defined($tlpobj))) {
-      die "Cannot find $p in texlive.tlpdb, strange!\n";
+      tlwarn("W: $p should be installed bug cannot be found in texlive.tlpdb!\n");
+      tlwarn("W: disabling it (expect this messages a view times!)\n");
+      $install{$p} = 0;
+      next;
     }
     $size+=$tlpobj->docsize if $vars{'option_doc'};
     $size+=$tlpobj->srcsize if $vars{'option_src'};