(upgrade) prevent upgrading more than once at a time

2 files changed, 7 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index 4f8aef73..ae5a41c4 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+- mdkapplet
+  o prevent upgrading more than once at a time
+
 Version 2.52.1 - 8 October 2008
 
 - mdkapplet
diff --git a/mdkapplet b/mdkapplet
index cf1412d2..10163848 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -436,7 +436,11 @@ sub confirm_upgrade() {
     $res;
 }
 
+my $already_in_upgrade;
 sub upgrade() {
+    return if $already_in_upgrade;
+    $already_in_upgrade = 1;
+    my $_a = before_leaving { undef $already_in_upgrade };
     return if !confirm_upgrade();
     logIt("backuping urpmi configuration");
     cp_af("$root/etc/urpmi/urpmi.cfg", "$ENV{HOME}/urpmi.cfg.backup." . int(rand 100000));