Get sane debugging info for the setup of everything

[catagits/Gitalist.git] / lib / Gitalist / Git / CollectionOfRepositories / FromDirectory / WhiteList.pm

diff --git a/lib/Gitalist/Git/CollectionOfRepositories/FromDirectory/WhiteList.pm b/lib/Gitalist/Git/CollectionOfRepositories/FromDirectory/WhiteList.pm
index 8b1d79b..e78c9d3 100644 (file)
--- a/lib/Gitalist/Git/CollectionOfRepositories/FromDirectory/WhiteList.pm
+++ b/lib/Gitalist/Git/CollectionOfRepositories/FromDirectory/WhiteList.pm
@@ -12,11 +12,14 @@ class Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList
         coerce   => 1,
     );
 
+    method debug_string { 'repository directory ' . $self->repo_dir . ' whitelist file ' . $self->whitelist }
+
     method _build_repositories {
         return [
             map  Gitalist::Git::Repository->new($_),
             grep -d $_,
-            map  $self->repo_dir->subdir($_), $self->whitelist->slurp(chomp => 1)
+            map  $self->repo_dir->subdir($_),
+            map  [split]->[0], $self->whitelist->slurp(chomp => 1)
         ];
     }
 }
@@ -51,7 +54,7 @@ different repository within L</repo_dir>.
 =head1 SEE ALSO
 
 L<Gitalist::Git::CollectionOfRepositories>,
-L<Gitalist::Git::Repository>, 
+L<Gitalist::Git::Repository>,
 L<Gitalist::Git::CollectionOfRepositories::FromDirectory>
 
 =head1 AUTHORS