my %repos;
find {
wanted => sub {
- return unless -d $_;
- my $r = App::Rgit::Repository->new(dir => $File::Find::name);
+ return if m{(?:^|/)\.\.?$}
+ or not (-d $_ and -r _);
+ my $r = App::Rgit::Repository->new(dir => $_);
$repos{$r->repo} = $r if $r
and not exists $repos{$r->repo};
},
- follow => 1
+ follow => 1,
+ no_chdir => 1,
}, $self->root;
$self->{repos} = [ sort { $a->repo cmp $b->repo } values %repos ];
}