=head1 VERSION
-Version 0.01
+Version 0.06
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.06';
=head1 DESCRIPTION
my %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};
+ return if m{(?:^|/)\.\.?$}
+ or not (-d $_ and -r _);
+ if (my $r = App::Rgit::Repository->new(dir => $_)) {
+ $File::Find::prune = 1;
+ $repos{$r->repo} = $r unless exists $repos{$r->repo};
+ }
},
- follow => 1
+ follow => 1,
+ no_chdir => 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.