diff options
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl | 18 |
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/; |