diff options
Diffstat (limited to 'move/collect-directories-to-create.pl')
-rwxr-xr-x | move/collect-directories-to-create.pl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/move/collect-directories-to-create.pl b/move/collect-directories-to-create.pl index 7a5cfd283..c6e208c57 100755 --- a/move/collect-directories-to-create.pl +++ b/move/collect-directories-to-create.pl @@ -7,9 +7,11 @@ use MDK::Common; #- in which they try to write doesn't exist. better collect them #- at build time so that drakx startup can create them. -chdir $ARGV[0]; -foreach (`find etc var -type d`) { - chomp; - my @l = stat($_); - printf "%o %d %d %s\n", $l[2] & 07777, $l[4], $l[5], $_; +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; |