From 631717f6192097f68b0bcc238edac862c3439622 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Oct 2003 16:08:54 +0000
Subject: list currently busy files

---
 move/tools/busy-files | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100755 move/tools/busy-files

(limited to 'move/tools')

diff --git a/move/tools/busy-files b/move/tools/busy-files
new file mode 100755
index 000000000..476a2dc67
--- /dev/null
+++ b/move/tools/busy-files
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+use MDK::Common;
+
+print "$_\n" foreach uniq (map {
+    grep {
+	$_ && !m!^(/proc/|/dev/|pipe:|socket:)!;
+    } map { readlink($_) } "/proc/$_/exe", glob_("/proc/$_/fd/*");
+} grep { $_ ne $$ && /^(\d+)$/ } all('/proc'));
-- 
cgit v1.2.1