From 48250757e954c47127366bf184c4690f88e3b0c8 Mon Sep 17 00:00:00 2001
From: Vladimir Volovich <vvv@vsu.ru>
Date: Sat, 14 Jun 2008 05:19:04 +0000
Subject: sync tlmgr.pl with Master tree

git-svn-id: svn://tug.org/texlive/trunk@8726 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/texlive/linked_scripts/tlmgr.pl | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/Build/source/texk/texlive/linked_scripts/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/tlmgr.pl
index b8d38bf3224..f2a8d32c689 100755
--- a/Build/source/texk/texlive/linked_scripts/tlmgr.pl
+++ b/Build/source/texk/texlive/linked_scripts/tlmgr.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: tlmgr.pl 8478 2008-06-02 12:45:52Z preining $
+# $Id: tlmgr.pl 8708 2008-06-13 11:56:01Z preining $
 #
 # Copyright 2008 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
@@ -10,7 +10,7 @@
 # - (?) removal does not remove created format files from TEXMFSYSVAR
 # - other features: dependency check?, ...?
 
-my $svnrev = '$Revision: 8478 $';
+my $svnrev = '$Revision: 8708 $';
 $svnrev =~ m/: ([0-9]+) /;
 my $tlmgrrevision = $1;
 
@@ -217,6 +217,10 @@ sub remove_package {
         return;
       }
     }
+    if ($pkg eq "texlive.infra") {
+      log("Not removing texlive.infra, it is essential!\n");
+      return;
+    }
     print "remove: $pkg\n";
     # we have to chdir to $localtlpdb->root
     my $Master = $localtlpdb->root;
@@ -240,6 +244,7 @@ sub remove_package {
     }
     $localtlpdb->remove_package($pkg);
     merge_into(\%ret, $tlp->make_return_hash_from_executes("disable"));
+    $ret{'mktexlsr'} = 1;
     # remove those bin dependencies .ARCH
     foreach my $d ($tlp->depends) {
       if ($d eq "$pkg.ARCH") {
@@ -594,7 +599,7 @@ sub action_update {
     next if ($pkg =~ m/^00texlive/);
     # it looks like that can actually be done!!!
     # It gives several warnings but afterwards the files are changed. Strange
-    #if (win32() && (($pkg eq "texlive-infra") || ($pkg eq "bin-texlive"))) {
+    #if (win32() && (($pkg eq "texlive.infra") || ($pkg eq "bin-texlive"))) {
     #  info("We cannot upgrade $pkg on win32, since we are running it!\n");
     #  next;
     #}
@@ -828,9 +833,9 @@ sub action_arch {
       merge_into (\%ret, $tlmediasrc->install_package("bin-tlpsv.win32", $localtlpdb, 1, 0));
     }
     # update the option_archs list of installed archs
-    my @larchs = $localtlpdb->option_available_archs;
+    my @larchs = $localtlpdb->option_available_architectures;
     push @larchs, @todoarchs;
-    $localtlpdb->option_available_archs(@larchs);
+    $localtlpdb->option_available_architectures(@larchs);
     $localtlpdb->save;
   } else {
     die "Unknown option for arch: $what";
-- 
cgit v1.2.3