This is an automated email from the git hooks/post-receive script. abe pushed a commit to annotated tag 2.001001 in repository libdist-zilla-plugin-test-podspelling-perl.
commit fac745ba7c19e6e9be1b80f36b1f72727ef41127 Author: Caleb Cushing <xenoterrac...@gmail.com> Date: Sat Aug 6 13:07:43 2011 -0500 unexpand 4 spaces to tabs Signed-off-by: Caleb Cushing <xenoterrac...@gmail.com> --- lib/Dist/Zilla/Plugin/Test/PodSpelling.pm | 96 +++++++++++++++---------------- 1 file changed, 48 insertions(+), 48 deletions(-) diff --git a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm index 0ce7ccf..8905264 100644 --- a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm +++ b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm @@ -13,40 +13,40 @@ with 'Dist::Zilla::Role::TextTemplate'; sub mvp_multivalue_args { return qw( stopwords ) } has wordlist => ( - is => 'ro', - isa => 'Str', - default => 'Pod::Wordlist::hanekomu', # default to original + is => 'ro', + isa => 'Str', + default => 'Pod::Wordlist::hanekomu', # default to original ); has spell_cmd => ( - is => 'ro', - isa => 'Str', - default => '', # default to original + is => 'ro', + isa => 'Str', + default => '', # default to original ); has stopwords => ( - is => 'ro', - isa => 'ArrayRef[Str]', - traits => [ 'Array' ], - default => sub { [] }, # default to original + is => 'ro', + isa => 'ArrayRef[Str]', + traits => [ 'Array' ], + default => sub { [] }, # default to original handles => { push_stopwords => 'push', } ); around add_file => sub { - my ($orig, $self, $file) = @_; - my ($set_spell_cmd, $add_stopwords, $stopwords); - if ($self->spell_cmd) { - $set_spell_cmd = sprintf "set_spell_cmd('%s');", $self->spell_cmd; - } - - # 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 ($orig, $self, $file) = @_; + my ($set_spell_cmd, $add_stopwords, $stopwords); + if ($self->spell_cmd) { + $set_spell_cmd = sprintf "set_spell_cmd('%s');", $self->spell_cmd; + } + + # 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; + } if ( $self->zilla->copyright_holder ) { for ( split( ' ', $self->zilla->copyright_holder ) ) { @@ -60,24 +60,24 @@ around add_file => sub { $self->log_debug( 'no copyright_holder found' ); } - if (@{ $self->stopwords } > 0) { - $add_stopwords = 'add_stopwords(<DATA>);'; - $stopwords = join "\n", '__DATA__', @{ $self->stopwords }; - } - $self->$orig( - Dist::Zilla::File::InMemory->new( - { name => $file->name, - content => $self->fill_in_string( - $file->content, - { wordlist => \$self->wordlist, - set_spell_cmd => \$set_spell_cmd, - add_stopwords => \$add_stopwords, - stopwords => \$stopwords, - }, - ), - } - ), - ); + if (@{ $self->stopwords } > 0) { + $add_stopwords = 'add_stopwords(<DATA>);'; + $stopwords = join "\n", '__DATA__', @{ $self->stopwords }; + } + $self->$orig( + Dist::Zilla::File::InMemory->new( + { name => $file->name, + content => $self->fill_in_string( + $file->content, + { wordlist => \$self->wordlist, + set_spell_cmd => \$set_spell_cmd, + add_stopwords => \$add_stopwords, + stopwords => \$stopwords, + }, + ), + } + ), + ); }; __PACKAGE__->meta->make_immutable; @@ -90,17 +90,17 @@ no Moose; In C<dist.ini>: - [Test::PodSpelling] + [Test::PodSpelling] or: - [Test::PodSpelling] - wordlist = Pod::Wordlist - spell_cmd = aspell list - stopwords = CPAN - stopwords = github - stopwords = stopwords - stopwords = wordlist + [Test::PodSpelling] + wordlist = Pod::Wordlist + spell_cmd = aspell list + stopwords = CPAN + stopwords = github + stopwords = stopwords + stopwords = wordlist =head1 DESCRIPTION -- 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