diff options
author | Mystery Man <unknown@mandriva.org> | 2005-08-30 18:55:27 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2005-08-30 18:55:27 +0000 |
commit | ea3a905b182f34bba2f071111d5263f1868c4a6f (patch) | |
tree | 45713836a82198448c93696b30f3c9ab7ba9aa4a /move/tools/busy-files | |
parent | f5427227e11f6025648f9537ffd3110c003f7e25 (diff) | |
download | drakx-ea3a905b182f34bba2f071111d5263f1868c4a6f.tar drakx-ea3a905b182f34bba2f071111d5263f1868c4a6f.tar.gz drakx-ea3a905b182f34bba2f071111d5263f1868c4a6f.tar.bz2 drakx-ea3a905b182f34bba2f071111d5263f1868c4a6f.tar.xz drakx-ea3a905b182f34bba2f071111d5263f1868c4a6f.zip |
This commit was manufactured by cvs2svn to create tagV10_3_0_50mdk
'V10_3_0_50mdk'.
Diffstat (limited to 'move/tools/busy-files')
-rwxr-xr-x | move/tools/busy-files | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/move/tools/busy-files b/move/tools/busy-files deleted file mode 100755 index 7426e785a..000000000 --- a/move/tools/busy-files +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl - -use MDK::Common; - -my @pids = grep { $_ ne $$ && /^(\d+)$/ } all('/proc'); - -my @l = map { - grep { - $_ && !m!^(/proc/|/dev/|pipe:|socket:)!; - } map { readlink($_) } "/proc/$_/exe", glob_("/proc/$_/fd/*"); -} @pids; - -push @l, grep { $_ } map { (split)[5] } map { cat_("/proc/$_/maps") } @pids; - -if ($ARGV[0] eq '--totem') { - @l = grep { m!/(image(_boot)?|cdrom)/! } @l; - $ARGV[0] = '--server'; -} -foreach (uniq @l) { - if ($ARGV[0] eq '--server') { - s!/image(_always|_boot|_totem)?/!/tmp/live_tree/!; - s!/cdrom/live_tree!/tmp/live_tree!; - } - print "$_\n"; -} |