wanted => sub {
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};
+ if (my $r = App::Rgit::Repository->new(dir => $_)) {
+ $File::Find::prune = 1;
+ $repos{$r->repo} = $r unless exists $repos{$r->repo};
+ }
},
follow => 1,
no_chdir => 1,
L<rgit>.
+L<App::Rgit::Config>.
+
=head1 AUTHOR
Vincent Pit, C<< <perl at profvince.com> >>, L<http://profvince.com>.
=head1 COPYRIGHT & LICENSE
-Copyright 2008-2009 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.