Sort the list of repositories by repository path. Test for git returning non-zero

[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 98b085f741e462e029b46dcead7b0eb1e9399082..9203d81bbfdd806885be2e88dd3fb1c4eaf95b6d 100644 (file)
--- a/lib/App/Rgit/Config/Default.pm
+++ b/lib/App/Rgit/Config/Default.pm
@@ -51,7 +51,7 @@ sub repos {
   },
   follow => 1
  }, $self->root;
- $self->{repos} = [ values %repos ];
+ $self->{repos} = [ sort { $a->repo cmp $b->repo } values %repos ];
 }
 
 =head1 SEE ALSO