This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 2.001002
in repository libdist-zilla-plugin-test-podspelling-perl.

commit 9473c8461da83012213ad7ea1f230d04b795db77
Author: Caleb Cushing <xenoterrac...@gmail.com>
Date:   Sun Nov 27 17:25:15 2011 -0600

    fix problem where duplicate stopwords could be added
    
    Signed-off-by: Caleb Cushing <xenoterrac...@gmail.com>
---
 lib/Dist/Zilla/Plugin/Test/PodSpelling.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm 
b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
index 0265181..a0805b0 100644
--- a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
+++ b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
@@ -30,6 +30,8 @@ has stopwords => (
        default => sub { [] },                   # default to original
        handles => {
                push_stopwords => 'push',
+               uniq_stopwords => 'uniq',
+               no_stopwords   => 'is_empty',
        }
 );
 
@@ -59,9 +61,9 @@ around add_file => sub {
                $self->log_debug( 'no copyright_holder found' );
        }
 
-       if (@{ $self->stopwords } > 0) {
+       unless ( $self->no_stopwords ) {
                $add_stopwords = 'add_stopwords(<DATA>);';
-               $stopwords = join "\n", '__DATA__', @{ $self->stopwords };
+               $stopwords = join "\n", '__DATA__', $self->uniq_stopwords;
        }
        $self->$orig(
                Dist::Zilla::File::InMemory->new(

-- 
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

Reply via email to