(kill_them_all) simplify, solve hard to reproduce perl segfault

(see https://qa.mandriva.com/show_bug.cgi?id=34505#c253)

1 files changed, 3 insertions, 1 deletions

diff --git a/control-center b/control-center
index 4142c144..a5f605ae 100755
--- a/control-center
+++ b/control-center
@@ -1834,7 +1834,9 @@ sub start_logdrake() {
 }
 
 sub kill_them_all {
-    map { if__($_, kill 'TERM', $_) } @_;
+    foreach my $pid (@_) {
+        kill('TERM', $pid) if $pid;
+    }
 }
 
 sub kill_children() {