X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=lib%2FApp%2FRgit%2FConfig%2FDefault.pm;h=3accbbeb41346335d20128338a357d354e893d79;hb=0f55b91d632134b6077941fa223cd94378151373;hp=028e106a2302f351a47dd0e0393c1aa4fde4f70a;hpb=c4df0499041f9632e0b0bdfcf563b28565b503d0;p=perl%2Fmodules%2Frgit.git

diff --git a/lib/App/Rgit/Config/Default.pm b/lib/App/Rgit/Config/Default.pm
index 028e106..3accbbe 100644
--- a/lib/App/Rgit/Config/Default.pm
+++ b/lib/App/Rgit/Config/Default.pm
@@ -45,9 +45,10 @@ sub repos {
   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,
@@ -59,6 +60,8 @@ sub repos {
 
 L<rgit>.
 
+L<App::Rgit::Config>.
+
 =head1 AUTHOR
 
 Vincent Pit, C<< <perl at profvince.com> >>, L<http://profvince.com>.
@@ -77,7 +80,7 @@ You can find documentation for this module with the perldoc command.
 
 =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.