2 # rpmsafe|sort -u|rpmsafereduce >EXCLUDE-FILELIST
5 #$IGNORE_D=1; # Do not backup directory entry itself even if it is missing in rpms. 581692 -> 37998 vs. 44248
10 (my $sl=$s)=~tr{/}{}cd;
12 $sl>=1 or carp "<$s>";
23 carp "sort -u: $l >= $_" if $l && $l ge $_;
26 $t{$_}=1,$d{$_}=$sl if -d;
28 s{/[^/]*$}{} or carp $_;
29 $d{$_}=$sl-1 if $IGNORE_D && $_ ne "";
38 @t=sort { ($f{$b}||$d{$b}) <=> ($f{$a}||$d{$a}) || $a cmp $b; } @t;
40 if (defined $time&&time()!=$time) {
42 print STDERR (@t+0)." \r";
46 next if !$d{$t}&&!$f{$t};
47 opendir DIR,$t or carp "$t: $!";
51 for my $d (readdir DIR) {
60 closedir DIR or carp "$t: $!";
62 do { $b{$t}=1; } while $t=~s{/[^/]*$}{};
69 $t=~s{/[^/]*$}{} or carp $t;
70 $d{$t}=slashes $t if $IGNORE_D && $t ne "";
74 for my $f (sort keys(%f)) {
75 print "$f\n" if !$b{$f};