undo stupid changes in tlmgrgui ...

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

1 files changed, 6 insertions, 12 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
index c0f0851aa27..4fa24a7d21d 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
@@ -471,7 +471,6 @@ sub install_selected_packages {
 sub update_selected_packages {
   if (@_) {
     my $updater_needed = 0;
-    my $run_program_needed = 1;
     if (win32()) {
       # we want to check for those packages which need special treatment
       # and pop up a warning in case it is going to be updated
@@ -481,25 +480,20 @@ sub update_selected_packages {
       } else {
         @upgradepkgs = @_;
       }
-      $run_program_needed = 0;
       foreach my $p (@upgradepkgs) {
         if ($p =~ m/$WinSpecialUpdatePackagesRegexp/) {
           $updater_needed = 1;
           last;
-        } else {
-          $run_program_needed = 1;
         }
       }
     }
-    if ($run_program_needed) {
-      my @execlist;
-      push @execlist, "tlmgr", "--location", "$location";
-      if ($debugmode) {
-        push @execlist, "-v";
-      }
-      push @execlist, "update", @_;
-      run_program_show_output(@execlist);
+    my @execlist;
+    push @execlist, "tlmgr", "--location", "$location";
+    if ($debugmode) {
+      push @execlist, "-v";
     }
+    push @execlist, "update", @_;
+    run_program_show_output(@execlist);
     if (win32() && $updater_needed) {
       my $t = ___"runupdater";
       $t =~ s/TEXROOT/$Master/;