X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FConfig%2FDefault.pm;h=543891c19ce2b5c522001d7cd8421fd08fa27e0f;hb=b324aaddfc988fb590d5254598f212f9f8e0642a;hp=98b085f741e462e029b46dcead7b0eb1e9399082;hpb=4c6f2bc56bc50a662b2c2625bcc012d4757f9abf;p=perl%2Fmodules%2Frgit.git diff --git a/lib/App/Rgit/Config/Default.pm b/lib/App/Rgit/Config/Default.pm index 98b085f..543891c 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.02 +Version 0.06 =cut -our $VERSION = '0.02'; +our $VERSION = '0.06'; =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 @@ -76,7 +75,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.