From d851348239c17eb51c8bc5ab87b4e33fea941b9f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 31 Aug 2004 11:26:23 +0000
Subject: (is_running) make it work

---
 perl-install/standalone/net_applet | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/standalone/net_applet')

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index c5c359be7..66f6849e1 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -73,8 +73,7 @@ Gtk2->main;
 ugtk2::exit(0);
 
 sub is_running {
-    my @pid = (grep { $_ !~ /^\s*$$\b/ } `ps -u $ENV{USER}`) =~ /\Q$_[0]/;
-    @pid
+    grep { $_ !~ /^\s*$$\b/ && /\Q$_[0]/ } `ps -u $ENV{USER}`;
 }
 sub shouldStart() {
     my %p = getVarsFromSh($onstartupfile);
-- 
cgit v1.2.1