4 use List::MoreUtils qw(any);
20 my @CURRENT = find($ENV{HOME}, '.', sub {$_[0] =~ m/^\./});
24 my $dir = shift || '.';
25 my $sel = shift || sub {1};
27 my $dirpath = File::Spec->catfile($base, $dir);
28 opendir my $dh, $dirpath or die "opendir: $dirpath: $!";
31 while (my $name = readdir $dh) {
32 next if $name =~ /^\.\.?$/;
33 next if !$sel->($name);
35 my $abs = File::Spec->rel2abs($name, $dirpath);
36 my $rel = File::Spec->abs2rel($abs, $base);
38 next if any { $rel =~ m/$_/ } @RE_IGNORED;
41 push @d, find($base, $rel);
50 foreach my $file (@CURRENT) {
51 # Is it in the repository?