[libdist-zilla-plugin-test-podspelling-perl] 08/13: generalize splitting extraction

[Axel Beckert]

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 <xenoterracide at gmail.com>
Date:   Thu Feb 14 19:25:39 2013 -0600

    generalize splitting extraction
    
    Signed-off-by: Caleb Cushing <xenoterracide at 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