re-sync after the big svn loss

1 files changed, 0 insertions, 34 deletions

diff --git a/move/tools/busy-files-accesses b/move/tools/busy-files-accesses
deleted file mode 100644
index 241b68405..000000000
--- a/move/tools/busy-files-accesses
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-use Getopt::Long;
-
-GetOptions('no-link' => \ (my $no_link), 
-	   'no-dir' => \ (my $no_dir),
-	   'full-dirs=s', \ (my $full_dirs),
-	   'already-have=s', \ (my $already_have),
-);
-
-if ($full_dirs) {
-    my @l = map { chomp_(MDK::Common::File::cat_or_die($_)) } split(' ', $full_dirs);
-    $full_dirs = '/tmp/live_tree(' . join('|', map { quotemeta } @l) . ')/';
-}
-if ($already_have) {
-    my @l = map { chomp_(MDK::Common::File::cat_or_die($_)) } split(' ', $already_have);
-    $already_have = '(' . join('|', map { quotemeta } @l) . ')';
-}
-
-my ($file_list) = @ARGV;
-foreach my $file (cat_($file_list)) {
-    chomp $file;
-
-    $file =~ m!/tmp/live_tree! or next;
-    $already_have && $file =~ /^$already_have$/ and next;
-
-    if (-l $file ? !$no_link : -d $file ? !$no_dir : 1) {
-	my $s = $full_dirs && $file =~ /^$full_dirs/ ? "/tmp/live_tree$1" : $file;
-	push @l, $s;
-    }
-}
-
-print "$_\n" foreach sort(uniq(@l));