From 2eddf39e943310411bbd3bf71810b36c20953cac Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 21 Nov 2003 16:06:25 +0000
Subject: show "frozen-bubble" instead of "perl"

---
 move/tree/mdk_totem | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'move')

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;
 
-- 
cgit v1.2.1