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 $_;
28 s{/[^/]*$}{} or carp $_;
29 $d{$_}=$sl-1 if $IGNORE_D && $_ ne "";
37 @t=sort { ($f{$b}||$d{$b}) <=> ($f{$a}||$d{$a}) || $a cmp $b; } @t;
39 if (defined $time&&time()!=$time) {
41 print STDERR (@t+0)." \r";
44 next if !$d{$t}&&!$f{$t};
45 opendir DIR,$t or carp "$t: $!";
49 for my $d (readdir DIR) {
58 closedir DIR or carp "$t: $!";
65 $t=~s{/[^/]*$}{} or carp $t;
66 $d{$t}=slashes $t if $IGNORE_D && $t ne "";
70 for my $f (sort keys(%f)) {