summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-11-21 16:06:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-11-21 16:06:25 +0000
commit2eddf39e943310411bbd3bf71810b36c20953cac (patch)
treef86dec66996f3453bb23570363f0be38a85b76be
parent2ca566489f36579389293d760f014589e9ca75a6 (diff)
downloaddrakx-2eddf39e943310411bbd3bf71810b36c20953cac.tar
drakx-2eddf39e943310411bbd3bf71810b36c20953cac.tar.gz
drakx-2eddf39e943310411bbd3bf71810b36c20953cac.tar.bz2
drakx-2eddf39e943310411bbd3bf71810b36c20953cac.tar.xz
drakx-2eddf39e943310411bbd3bf71810b36c20953cac.zip
show "frozen-bubble" instead of "perl"
-rwxr-xr-xmove/tree/mdk_totem5
1 files changed, 3 insertions, 2 deletions
diff --git a/move/tree/mdk_totem b/move/tree/mdk_totem
index c634118dd..c007acdad 100755
--- a/move/tree/mdk_totem
+++ b/move/tree/mdk_totem
@@ -16,7 +16,7 @@ sub busy_pids_and_files() {
my @l2 = grep { $_ } map { (split)[5] } cat_("/proc/$_/maps");
if (my @l = grep { m!^/(image(_boot)?|cdrom/live_tree)/! } @l1, @l2) {
- my ($cmdline) = cat_("/proc/$_/cmdline") =~ /([^\0]*)/;
+ my $cmdline = join(' ', split('\0', cat_("/proc/$_/cmdline")));
my $exe = readlink("/proc/$_/exe");
{ pid => $_, cmdline => $cmdline, exe => $exe, files => [ sort(uniq(@l)) ] };
} else {
@@ -69,9 +69,10 @@ if (@busy) {
my @progs = map {
my $s = $_->{cmdline};
+ $s =~ s!^/usr/bin/perl\s+([^-]\S*).*!$1!;
$s =~ s!/.*/!!;
$s =~ s!^kdeinit:\s+(\S+).*!$1!;
- $s =~ s!\s+--.*!!;
+ $s =~ s!\s.*!!;
$s;
} @busy;