1 files changed, 0 insertions, 17 deletions
diff --git a/move/collect-directories-to-create.pl b/move/collect-directories-to-create.pl
deleted file mode 100755
index c6e208c57..000000000
--- a/move/collect-directories-to-create.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use MDK::Common;
-
-#- there are programs/packages which fail when the directory
-#- in which they try to write doesn't exist. better collect them
-#- at build time so that drakx startup can create them.
-
-my @list = map { if_(m|^\Q$ARGV[0]\E(.*)$|, $1) } `find $ARGV[0]/{etc,var} -type d`;
-my @final;
-foreach my $e (sort { length($b) <=> length($a) } @list) {
-    any { /^\Q$e\E/ } @final and next;
-    push @final, $e;
-}
-
-print "$_\n" foreach sort @final;