This is an automated email from the git hooks/post-receive script. abe pushed a commit to annotated tag 2.004000 in repository libdist-zilla-plugin-test-podspelling-perl.
commit e5c52b05da51b71423d7fe16f10609b6acd3fc2c Author: Caleb Cushing <xenoterrac...@gmail.com> Date: Thu Feb 14 19:25:39 2013 -0600 generalize splitting extraction Signed-off-by: Caleb Cushing <xenoterrac...@gmail.com> --- lib/Dist/Zilla/Plugin/Test/PodSpelling.pm | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) diff --git a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm index b01b376..c884554 100644 --- a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm +++ b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm @@ -54,6 +54,7 @@ has directories => ( sub add_stopword { my ( $self, $data ) = @_; + $self->log_debug( 'attempting stopwords extraction from: ' . $data ); # words must be greater than 2 characters my ( $word ) = $data =~ /(\w{2,})/uxms; @@ -73,17 +74,12 @@ around add_file => sub { $set_spell_cmd = sprintf "set_spell_cmd('%s');", $self->spell_cmd; } - # automatically add author names to stopwords - foreach my $name (@{ $self->zilla->authors }) { - $self->add_stopword( $name ); - } - - if ( $self->zilla->copyright_holder ) { - foreach my $holder ( split( /\s/uxms, $self->zilla->copyright_holder ) ) { - $self->add_stopword( $holder ); - } - } else { - $self->log_debug( 'no copyright_holder found' ); + foreach my $holder ( split( /\s/uxms, join( ' ', + @{ $self->zilla->authors }, + $self->zilla->copyright_holder, + )) + ) { + $self->add_stopword( $holder ); } foreach my $file ( @{ $self->found_files } ) { -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits