The root directory can also be a repository

[perl/modules/rgit.git] / lib / App / Rgit / Config / Default.pm

diff --git a/lib/App/Rgit/Config/Default.pm b/lib/App/Rgit/Config/Default.pm
index 5917d790d7201f9f4d0ebb6620e421228e0c1c0b..8630fb61f759c49df6efe99b27b476ddb5e64c53 100644 (file)
--- 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.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 DESCRIPTION
 
@@ -44,14 +44,13 @@ sub repos {
  find {
   wanted => sub {
    return unless -d $_;
-   return if $_ eq '.' or $_ eq '..';
    my $r = App::Rgit::Repository->new(dir => $File::Find::name);
    $repos{$r->repo} = $r if $r 
                          and not exists $repos{$r->repo};
   },
   follow => 1
  }, $self->root;
- $self->{repos} = [ values %repos ];
+ $self->{repos} = [ sort { $a->repo cmp $b->repo } values %repos ];
 }
 
 =head1 SEE ALSO