summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-06-26 17:34:25 +0000
committerNorbert Preining <preining@logic.at>2008-06-26 17:34:25 +0000
commit28f989299ceb5cb8fa7275b6a1fdf27cc3e2e4c2 (patch)
tree7117059e8261313e92b3115bb11d617342957cd7 /Master
parentb61333b81fa59219c9c39b6a49250e1cf193df06 (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-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl18
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/;