diff options
author | Mystery Man <unknown@mandriva.org> | 2004-05-11 12:41:07 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2004-05-11 12:41:07 +0000 |
commit | f0b2cf434b3a176276e79046eafc71a26d94ca3d (patch) | |
tree | a2f73175aefefa9f630d80119507e1c95868367e /move/collect-directories-to-create.pl | |
parent | 3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95 (diff) | |
download | drakx-f0b2cf434b3a176276e79046eafc71a26d94ca3d.tar drakx-f0b2cf434b3a176276e79046eafc71a26d94ca3d.tar.gz drakx-f0b2cf434b3a176276e79046eafc71a26d94ca3d.tar.bz2 drakx-f0b2cf434b3a176276e79046eafc71a26d94ca3d.tar.xz drakx-f0b2cf434b3a176276e79046eafc71a26d94ca3d.zip |
This commit was manufactured by cvs2svn to create branch
'MDK-10-update'.
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; |