=head1 VERSION
-Version 0.02
+Version 0.06
=cut
-our $VERSION = '0.02';
+our $VERSION = '0.06';
=head1 DESCRIPTION
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
=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.