X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FGitalist%2FGit%2FCollectionOfRepositories%2FFromDirectory%2FWhiteList.pm;h=e78c9d3817bbb0dd59ff6fa78ff02a47ca8dc756;hb=13c42902c178ccbb5d2e9fd174e06e8995490ff3;hp=8b1d79b39c73f63df78724b25515417716e02eca;hpb=b70462a4f5137a1444304a35616911094383b381;p=catagits%2FGitalist.git diff --git a/lib/Gitalist/Git/CollectionOfRepositories/FromDirectory/WhiteList.pm b/lib/Gitalist/Git/CollectionOfRepositories/FromDirectory/WhiteList.pm index 8b1d79b..e78c9d3 100644 --- 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. =head1 SEE ALSO L, -L, +L, L =head1 AUTHORS