prevent running more than one instance (#47755)

1 files changed, 4 insertions, 0 deletions

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;