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

diff --git a/lib/App/Rgit/Config/Default.pm b/lib/App/Rgit/Config/Default.pm
index 1f8a580..028e106 100644
--- a/lib/App/Rgit/Config/Default.pm
+++ b/lib/App/Rgit/Config/Default.pm
@@ -15,11 +15,11 @@ App::Rgit::Config::Default - Default App::Rgit configuration class.
 
 =head1 VERSION
 
-Version 0.05
+Version 0.06
 
 =cut
 
-our $VERSION = '0.05';
+our $VERSION = '0.06';
 
 =head1 DESCRIPTION
 
@@ -43,12 +43,14 @@ sub repos {
  my %repos;
  find {
   wanted => sub {
-   return unless -d $_;
-   my $r = App::Rgit::Repository->new(dir => $File::Find::name);
-   $repos{$r->repo} = $r if $r 
+   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 ];
 }
@@ -75,7 +77,7 @@ You can find documentation for this module with the perldoc command.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2008 Vincent Pit, all rights reserved.
+Copyright 2008-2009 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.