diff options
author | Norbert Preining <preining@logic.at> | 2008-06-26 17:34:25 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-06-26 17:34:25 +0000 |
commit | 28f989299ceb5cb8fa7275b6a1fdf27cc3e2e4c2 (patch) | |
tree | 7117059e8261313e92b3115bb11d617342957cd7 /Master | |
parent | b61333b81fa59219c9c39b6a49250e1cf193df06 (diff) |
tlmgrgui: run updater tlmgr process only when needed
git-svn-id: svn://tug.org/texlive/trunk@9061 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl index 4fa24a7d21d..c0f0851aa27 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl @@ -471,6 +471,7 @@ 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 @@ -480,20 +481,25 @@ 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; } } } - my @execlist; - push @execlist, "tlmgr", "--location", "$location"; - if ($debugmode) { - push @execlist, "-v"; + if ($run_program_needed) { + my @execlist; + push @execlist, "tlmgr", "--location", "$location"; + if ($debugmode) { + push @execlist, "-v"; + } + push @execlist, "update", @_; + run_program_show_output(@execlist); } - push @execlist, "update", @_; - run_program_show_output(@execlist); if (win32() && $updater_needed) { my $t = ___"runupdater"; $t =~ s/TEXROOT/$Master/; |