summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-31 11:43:20 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-31 11:43:20 +0000
commit8d46e643974fb814fd27b973517bb168bd508162 (patch)
tree70f07502603d71c54e24251628356e3bb58df033 /perl-install
parentd851348239c17eb51c8bc5ab87b4e33fea941b9f (diff)
downloaddrakx-8d46e643974fb814fd27b973517bb168bd508162.tar
drakx-8d46e643974fb814fd27b973517bb168bd508162.tar.gz
drakx-8d46e643974fb814fd27b973517bb168bd508162.tar.bz2
drakx-8d46e643974fb814fd27b973517bb168bd508162.tar.xz
drakx-8d46e643974fb814fd27b973517bb168bd508162.zip
(is_running) enhance regexp, use any
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/net_applet3
1 files changed, 2 insertions, 1 deletions
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);