2 # rpmsafe|sort -u|rpmsafereduce >EXCLUDEFILE
7 (my $sl=$s)=~tr{/}{}cd;
20 die "sort -u: $l >= $_" if $l && $l ge $_;
25 s{/[^/]*$}{} or die $_;
33 @t=sort { ($f{$b}||$d{$b}) <=> ($f{$a}||$d{$a}) || $a cmp $b; } @t;
35 if (defined $time&&time()!=$time) {
37 print STDERR (@t+0)." \r";
40 next if !$d{$t}&&!$f{$t};
41 opendir DIR,$t or die "$t: $!";
45 for my $d (readdir DIR) {
54 closedir DIR or die "$t: $!";
61 $t=~s{/[^/]*$}{} or die $t;
66 for my $f (sort keys(%f)) {