diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-08-31 11:43:20 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-08-31 11:43:20 +0000 |
| commit | 8d46e643974fb814fd27b973517bb168bd508162 (patch) | |
| tree | 70f07502603d71c54e24251628356e3bb58df033 /perl-install/standalone | |
| parent | d851348239c17eb51c8bc5ab87b4e33fea941b9f (diff) | |
| download | drakx-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/standalone')
| -rw-r--r-- | perl-install/standalone/net_applet | 3 |
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); |