[libdist-zilla-plugin-test-podspelling-perl] 01/13: 5.014 fix for unicode problem

[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 3e6fb926fc8f8a0d3acb12a1d862aa5679a4382c
Author: Caleb Cushing <xenoterracide at gmail.com>
Date:   Thu Feb 14 18:23:55 2013 -0600

    5.014 fix for unicode problem
    
    Signed-off-by: Caleb Cushing <xenoterracide at gmail.com>
---
 lib/Dist/Zilla/Plugin/Test/PodSpelling.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
index 84f490e..2b8c6a7 100644
--- a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
+++ b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
@@ -1,5 +1,5 @@
 package Dist::Zilla::Plugin::Test::PodSpelling;
-use 5.008;
+use 5.014;
 use strict;
 use warnings;
 
@@ -49,14 +49,14 @@ around add_file => sub {
 
 	# automatically add author names to stopwords
 	for (@{ $self->zilla->authors }) {
-		local $_ = $_;    # we don't want to modify $_ in-place
-		s/<.*?>//gxms;
-		push @{ $self->stopwords }, /(\w{2,})/gxms;
+		my ( $word ) = $_ =~ /(\w{2,})/uxms;
+		$self->log_debug( 'author name: ' . $word );
+		$self->push_stopwords( $word );
 	}
 
 	if ( $self->zilla->copyright_holder ) {
-		for ( split( ' ', $self->zilla->copyright_holder ) ) {
-			my ( $word ) = $_ =~ /(\w{2,})/xms;
+		for ( split( /\s/uxms, $self->zilla->copyright_holder ) ) {
+			my ( $word ) = $_ =~ /(\w{2,})/uxms;
 
 			next unless $word;
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-perl.git