prevent running more than one instance (#47755)

2 files changed, 5 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index 86a7457b..8418d703 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,7 @@
 - rpmdrake:
   o add 'compute_updates' option that enable super fast startup by
     skipping computing updates on startup (#42848)
+  o prevent running more than one instance (#47755)
 
 Version 5.8 - 15 February 2009, Thierry Vignaud
 
diff --git a/rpmdrake b/rpmdrake
index 6407f7a3..430f76db 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -735,6 +735,10 @@ sub run_treeview_dialog {
 # -=-=-=---=-=-=---=-=-=-- main -=-=-=---=-=-=---=-=-=-
 
 
+if (my $pid = is_running('rpmdrake')) {
+    die "rpmdrake is already running ($pid)\n";
+}
+
 $w = ugtk2->new(N("Software Management"));
 $w->{rwindow}->show_all if $::isEmbedded;