diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-31 11:26:23 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-31 11:26:23 +0000 |
| commit | d851348239c17eb51c8bc5ab87b4e33fea941b9f (patch) | |
| tree | 49ea315fe0c85cff986110e5585c987319b6ae64 /perl-install | |
| parent | 7fa0f6c69663e1acf5c725cf2c7506eebc53e336 (diff) | |
| download | drakx-d851348239c17eb51c8bc5ab87b4e33fea941b9f.tar drakx-d851348239c17eb51c8bc5ab87b4e33fea941b9f.tar.gz drakx-d851348239c17eb51c8bc5ab87b4e33fea941b9f.tar.bz2 drakx-d851348239c17eb51c8bc5ab87b4e33fea941b9f.tar.xz drakx-d851348239c17eb51c8bc5ab87b4e33fea941b9f.zip | |
(is_running) make it work
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone/net_applet | 3 |
1 files changed, 1 insertions, 2 deletions
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); |