From 8d46e643974fb814fd27b973517bb168bd508162 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 31 Aug 2004 11:43:20 +0000
Subject: (is_running) enhance regexp, use any

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

(limited to 'perl-install/standalone')

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