Hello community,

here is the log from the commit of package perl-Pod-Spell for openSUSE:Factory 
checked in at 2016-05-11 16:37:54
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Pod-Spell (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Pod-Spell.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Pod-Spell"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Pod-Spell/perl-Pod-Spell.changes    
2016-02-26 00:39:33.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Pod-Spell.new/perl-Pod-Spell.changes       
2016-05-11 16:37:55.000000000 +0200
@@ -1,0 +2,22 @@
+Thu May  5 09:57:58 UTC 2016 - [email protected]
+
+- updated to 1.20
+   see /usr/share/doc/packages/perl-Pod-Spell/Changes
+
+  1.20      2016-04-22
+       - Stable release, made in Rugby, UK during Perl QA Hackathon 2016
+  
+  1.19_91   2016-04-21
+       - Drop use of File::ShareDir::ProjectDistDir (GitHub #26). Thanks Kent
+         Fredric!
+       - Allow stop words with '.' (GitHub #28). Thanks Paulo Custodio!
+  
+  1.19_90   2016-02-20
+       - Hide internals: the POD parser is moved to a private package and
+         the Pod::Spell package now only exposes the public interface.
+         This is a first step towards rewriting the parser using Pod::Simple
+         (planned for Pod-Spell-2.0).
+       - 'parse_from_file' and 'parse_from_filehandle' are now explicitely
+         documented (by copying doc from Pod::Parser).
+
+-------------------------------------------------------------------

Old:
----
  Pod-Spell-1.19.tar.gz

New:
----
  Pod-Spell-1.20.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Pod-Spell.spec ++++++
--- /var/tmp/diff_new_pack.EAF7Ds/_old  2016-05-11 16:37:56.000000000 +0200
+++ /var/tmp/diff_new_pack.EAF7Ds/_new  2016-05-11 16:37:56.000000000 +0200
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Pod-Spell
-Version:        1.19
+Version:        1.20
 Release:        0
 %define cpan_name Pod-Spell
 Summary:        Formatter for Spellchecking Pod
@@ -31,15 +31,17 @@
 BuildRequires:  perl
 BuildRequires:  perl-macros
 BuildRequires:  perl(Class::Tiny)
+BuildRequires:  perl(File::ShareDir)
 BuildRequires:  perl(File::ShareDir::Install) >= 0.06
-BuildRequires:  perl(File::ShareDir::ProjectDistDir) >= 1.000
 BuildRequires:  perl(Lingua::EN::Inflect)
+BuildRequires:  perl(Path::Tiny)
 BuildRequires:  perl(Pod::Escapes)
 BuildRequires:  perl(Test::Deep)
 BuildRequires:  perl(parent)
 Requires:       perl(Class::Tiny)
-Requires:       perl(File::ShareDir::ProjectDistDir) >= 1.000
+Requires:       perl(File::ShareDir)
 Requires:       perl(Lingua::EN::Inflect)
+Requires:       perl(Path::Tiny)
 Requires:       perl(Pod::Escapes)
 Requires:       perl(parent)
 %{perl_requires}

++++++ Pod-Spell-1.19.tar.gz -> Pod-Spell-1.20.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/Changes new/Pod-Spell-1.20/Changes
--- old/Pod-Spell-1.19/Changes  2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/Changes  2016-04-22 09:33:47.000000000 +0200
@@ -1,5 +1,21 @@
 Revision history Pod-Spell
 
+1.20      2016-04-22
+       - Stable release, made in Rugby, UK during Perl QA Hackathon 2016
+
+1.19_91   2016-04-21
+       - Drop use of File::ShareDir::ProjectDistDir (GitHub #26). Thanks Kent
+         Fredric!
+       - Allow stop words with '.' (GitHub #28). Thanks Paulo Custodio!
+
+1.19_90   2016-02-20
+       - Hide internals: the POD parser is moved to a private package and
+         the Pod::Spell package now only exposes the public interface.
+         This is a first step towards rewriting the parser using Pod::Simple
+         (planned for Pod-Spell-2.0).
+       - 'parse_from_file' and 'parse_from_filehandle' are now explicitely
+         documented (by copying doc from Pod::Parser).
+
 1.19      2016-02-20
        - Don't set $Text::Wrap::huge globally, but localize it
        - Load Pod::Wordlist only if used
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/MANIFEST new/Pod-Spell-1.20/MANIFEST
--- old/Pod-Spell-1.19/MANIFEST 2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/MANIFEST 2016-04-22 09:33:47.000000000 +0200
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::Manifest 
v5.043.
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest 
v5.044.
 CONTRIBUTING
 Changes
 LICENSE
@@ -17,6 +17,7 @@
 t/00-report-prereqs.t
 t/basic.t
 t/debug.t
+t/fix_21.t
 t/get-stopwords.t
 t/text-block.t
 t/utf8.t
@@ -33,3 +34,4 @@
 xt/release/pod-linkcheck.t
 xt/release/portability.t
 xt/release/unused-vars.t
+xt/smoke/dependents.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/META.json new/Pod-Spell-1.20/META.json
--- old/Pod-Spell-1.19/META.json        2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/META.json        2016-04-22 09:33:47.000000000 +0200
@@ -5,7 +5,7 @@
       "Caleb Cushing <[email protected]>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 5.043, CPAN::Meta::Converter version 
2.150005",
+   "generated_by" : "Dist::Zilla version 5.044, CPAN::Meta::Converter version 
2.150005",
    "license" : [
       "artistic_2"
    ],
@@ -24,6 +24,9 @@
          "requires" : {
             "ExtUtils::MakeMaker" : "0",
             "File::ShareDir::Install" : "0.06"
+         },
+         "suggests" : {
+            "JSON::PP" : "2.27300"
          }
       },
       "develop" : {
@@ -32,6 +35,7 @@
             "Pod::Coverage::TrustPod" : "0",
             "Test::CPAN::Changes" : "0.19",
             "Test::CPAN::Meta::JSON" : "0.16",
+            "Test::DependentModules" : "0",
             "Test::EOL" : "0",
             "Test::More" : "0.96",
             "Test::Pod" : "1.41",
@@ -46,9 +50,10 @@
          "requires" : {
             "Carp" : "0",
             "Class::Tiny" : "0",
-            "File::ShareDir::ProjectDistDir" : "1.000",
+            "File::ShareDir" : "0",
             "Lingua::EN::Inflect" : "0",
             "POSIX" : "0",
+            "Path::Tiny" : "0",
             "Pod::Escapes" : "0",
             "Pod::Parser" : "0",
             "Text::Wrap" : "0",
@@ -79,11 +84,11 @@
    "provides" : {
       "Pod::Spell" : {
          "file" : "lib/Pod/Spell.pm",
-         "version" : "1.19"
+         "version" : "1.20"
       },
       "Pod::Wordlist" : {
          "file" : "lib/Pod/Wordlist.pm",
-         "version" : "1.19"
+         "version" : "1.20"
       }
    },
    "release_status" : "stable",
@@ -95,12 +100,13 @@
          "web" : "https://github.com/perl-pod/Pod-Spell";
       }
    },
-   "version" : "1.19",
+   "version" : "1.20",
    "x_contributors" : [
       "David Golden <[email protected]>",
       "Kent Fredric <[email protected]>",
       "Mohammad S Anwar <[email protected]>",
-      "Olivier Mengué <[email protected]>"
+      "Olivier Mengué <[email protected]>",
+      "Paulo Custodio <[email protected]>"
    ]
 }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/META.yml new/Pod-Spell-1.20/META.yml
--- old/Pod-Spell-1.19/META.yml 2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/META.yml 2016-04-22 09:33:47.000000000 +0200
@@ -16,7 +16,7 @@
   ExtUtils::MakeMaker: '0'
   File::ShareDir::Install: '0.06'
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 5.043, CPAN::Meta::Converter version 
2.150005'
+generated_by: 'Dist::Zilla version 5.044, CPAN::Meta::Converter version 
2.150005'
 license: artistic_2
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -28,16 +28,17 @@
 provides:
   Pod::Spell:
     file: lib/Pod/Spell.pm
-    version: '1.19'
+    version: '1.20'
   Pod::Wordlist:
     file: lib/Pod/Wordlist.pm
-    version: '1.19'
+    version: '1.20'
 requires:
   Carp: '0'
   Class::Tiny: '0'
-  File::ShareDir::ProjectDistDir: '1.000'
+  File::ShareDir: '0'
   Lingua::EN::Inflect: '0'
   POSIX: '0'
+  Path::Tiny: '0'
   Pod::Escapes: '0'
   Pod::Parser: '0'
   Text::Wrap: '0'
@@ -50,9 +51,10 @@
 resources:
   homepage: https://github.com/perl-pod/Pod-Spell
   repository: https://github.com/perl-pod/Pod-Spell.git
-version: '1.19'
+version: '1.20'
 x_contributors:
   - 'David Golden <[email protected]>'
   - 'Kent Fredric <[email protected]>'
   - 'Mohammad S Anwar <[email protected]>'
   - 'Olivier Mengué <[email protected]>'
+  - 'Paulo Custodio <[email protected]>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/Makefile.PL 
new/Pod-Spell-1.20/Makefile.PL
--- old/Pod-Spell-1.19/Makefile.PL      2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/Makefile.PL      2016-04-22 09:33:47.000000000 +0200
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker 
v5.043.
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker 
v5.044.
 use strict;
 use warnings;
 
@@ -29,9 +29,10 @@
   "PREREQ_PM" => {
     "Carp" => 0,
     "Class::Tiny" => 0,
-    "File::ShareDir::ProjectDistDir" => "1.000",
+    "File::ShareDir" => 0,
     "Lingua::EN::Inflect" => 0,
     "POSIX" => 0,
+    "Path::Tiny" => 0,
     "Pod::Escapes" => 0,
     "Pod::Parser" => 0,
     "Text::Wrap" => 0,
@@ -51,7 +52,7 @@
     "Test::More" => 0,
     "utf8" => 0
   },
-  "VERSION" => "1.19",
+  "VERSION" => "1.20",
   "test" => {
     "TESTS" => "t/*.t"
   }
@@ -62,13 +63,14 @@
   "Carp" => 0,
   "Class::Tiny" => 0,
   "ExtUtils::MakeMaker" => 0,
-  "File::ShareDir::ProjectDistDir" => "1.000",
+  "File::ShareDir" => 0,
   "File::Spec" => 0,
   "File::Temp" => 0,
   "IO::Handle" => 0,
   "IPC::Open3" => 0,
   "Lingua::EN::Inflect" => 0,
   "POSIX" => 0,
+  "Path::Tiny" => 0,
   "Pod::Escapes" => 0,
   "Pod::Parser" => 0,
   "Test::Deep" => 0,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/README new/Pod-Spell-1.20/README
--- old/Pod-Spell-1.19/README   2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/README   2016-04-22 09:33:47.000000000 +0200
@@ -4,7 +4,7 @@
 
 VERSION
 
-    version 1.19
+    version 1.20
 
 SYNOPSIS
 
@@ -46,18 +46,52 @@
 
  new
 
- command
-
- interior_sequence
-
- textblock
-
- verbatim
-
  stopwords
 
             $self->stopwords->isa('Pod::WordList'); # true
 
+ parse_from_filehandle($in_fh,$out_fh)
+
+    This method takes an input filehandle (which is assumed to already be
+    opened for reading) and reads the entire input stream looking for
+    blocks (paragraphs) of POD documentation to be processed. If no first
+    argument is given the default input filehandle STDIN is used.
+
+    The $in_fh parameter may be any object that provides a getline() method
+    to retrieve a single line of input text (hence, an appropriate wrapper
+    object could be used to parse PODs from a single string or an array of
+    strings).
+
+ parse_from_file($filename,$outfile)
+
+    This method takes a filename and does the following:
+
+      * opens the input and output files for reading (creating the
+      appropriate filehandles)
+
+      * invokes the parse_from_filehandle() method passing it the
+      corresponding input and output filehandles.
+
+      * closes the input and output files.
+
+    If the special input filename "", "-" or "<&STDIN" is given then the
+    STDIN filehandle is used for input (and no open or close is performed).
+    If no input filename is specified then "-" is implied. Filehandle
+    references, or objects that support the regular IO operations (like
+    <$fh> or $fh-<Egtgetline>) are also accepted; the handles must already
+    be opened.
+
+    If a second argument is given then it should be the name of the desired
+    output file. If the special output filename "-" or ">&STDOUT" is given
+    then the STDOUT filehandle is used for output (and no open or close is
+    performed). If the special output filename ">&STDERR" is given then the
+    STDERR filehandle is used for output (and no open or close is
+    performed). If no output filehandle is currently in use and no output
+    filename is specified, then "-" is implied. Alternatively, filehandle
+    references or objects that support the regular IO operations (like
+    print, e.g. IO::String) are also accepted; the object must already be
+    opened.
+
 ENCODINGS
 
     Pod::Parser, which Pod::Spell extends, is extremely naive about
@@ -183,6 +217,8 @@
 
       * Olivier Mengué <[email protected]>
 
+      * Paulo Custodio <[email protected]>
+
 AUTHORS
 
       * Sean M. Burke <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/bin/podspell 
new/Pod-Spell-1.20/bin/podspell
--- old/Pod-Spell-1.19/bin/podspell     2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/bin/podspell     2016-04-22 09:33:47.000000000 +0200
@@ -3,7 +3,7 @@
 use warnings;
 use Pod::Spell;
 
-our $VERSION = '1.19'; # VERSION
+our $VERSION = '1.20'; # VERSION
 
 if ($] ge '5.008001') {
   # Try to get the encoding from the locale
@@ -36,13 +36,15 @@
 
 =encoding UTF-8
 
+=for :stopwords Sean M. Burke Caleb Cushing Olivier Mengué
+
 =head1 NAME
 
 podspell - pod spell checking command line interface
 
 =head1 VERSION
 
-version 1.19
+version 1.20
 
 =head1 SYNOPSIS
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/lib/Pod/Spell.pm 
new/Pod-Spell-1.20/lib/Pod/Spell.pm
--- old/Pod-Spell-1.19/lib/Pod/Spell.pm 2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/lib/Pod/Spell.pm 2016-04-22 09:33:47.000000000 +0200
@@ -3,7 +3,46 @@
 use strict;
 use warnings;
 
-our $VERSION = '1.19'; # VERSION
+our $VERSION = '1.20'; # VERSION
+
+sub new {
+       my ( $class, %args ) = @_;
+
+       my $no_wide_chars = delete $args{no_wide_chars};
+       my $debug = delete($args{debug}) || $ENV{PERL_POD_SPELL_DEBUG};
+
+       my $stopwords = $args{stopwords} || do {
+               require Pod::Wordlist;
+               Pod::Wordlist->new(
+                       _is_debug => $debug,
+                       no_wide_chars => $no_wide_chars
+               )
+       };
+
+       my %self = (
+               processor => Pod::Spell::_Processor->new( $debug, $stopwords ),
+               stopwords => $stopwords,
+               debug => $debug,
+       );
+
+       bless \%self, $class
+}
+
+sub _is_debug { (shift)->{debug} ? 1 : 0; }
+
+sub stopwords { (shift)->{stopwords} }
+
+sub parse_from_file {
+       shift->{processor}->parse_from_file(@_)
+}
+
+sub parse_from_filehandle {
+       shift->{processor}->parse_from_filehandle(@_)
+}
+
+
+package # Hide from indexing
+       Pod::Spell::_Processor;
 
 use parent 'Pod::Parser';
 
@@ -13,42 +52,51 @@
 use locale;                      # so our uc/lc works right
 use Carp;
 
-#==========================================================================
-#
-#  Override some methods
-#
 
 sub new {
-       my ( $class, %args ) = @_;
+       my ( $class, $debug, $stopwords ) = @_;
+
+       my $self = $class->SUPER::new;
+       @{$self}{qw< debug stopwords >} = ($debug, $stopwords);
+       $self
+}
 
-       my $new = $class->SUPER::new( %args );
+#----------------------------------------------------------------------
 
-       $new->{'region'} = [];
+sub _is_debug { (shift)->{debug} ? 1 : 0; }
+sub stopwords { (shift)->{stopwords} }
 
-       $new->{no_wide_chars} = $args{no_wide_chars};
+#----------------------------------------------------------------------
 
-       $new->{debug} = $args{debug} || $ENV{PERL_POD_SPELL_DEBUG};
 
-       $new->{stopwords} = $args{stopwords} || do {
-               require Pod::Wordlist;
-               Pod::Wordlist->new(
-                       _is_debug => $new->{debug},
-                       no_wide_chars => $args{no_wide_chars}
-               )
-       };
+sub parse_from_file {
+       my $self = shift;
 
-       return $new;
+       $self->{region} = [];
+
+       $self->SUPER::parse_from_file(@_);
+
+       delete $self->{region}
 }
 
-sub stopwords { (shift)->{stopwords} }
+sub parse_from_filehandle {
+       my $self = shift;
 
-sub verbatim { '' }    # totally ignore verbatim sections
+       $self->{region} = [];
 
-#----------------------------------------------------------------------
+       $self->SUPER::parse_from_filehandle(@_);
 
-sub _is_debug { (shift)->{debug} ? 1 : 0; }
+       delete $self->{region}
+}
+
+
+#==========================================================================
+#
+#  Override some methods
+#
+
+sub verbatim { '' }    # totally ignore verbatim sections
 
-#----------------------------------------------------------------------
 
 sub textblock {
        my ( $self, $paragraph ) = @_;
@@ -205,13 +253,15 @@
 
 =encoding UTF-8
 
+=for :stopwords Sean M. Burke Caleb Cushing Olivier Mengué PODs virtE<ugrave>
+
 =head1 NAME
 
 Pod::Spell - a formatter for spellchecking Pod
 
 =head1 VERSION
 
-version 1.19
+version 1.20
 
 =head1 SYNOPSIS
 
@@ -255,19 +305,61 @@
 
 =head2 new
 
-=head2 command
+=head2 stopwords
 
-=head2 interior_sequence
+       $self->stopwords->isa('Pod::WordList'); # true
 
-=head2 textblock
+=head2 parse_from_filehandle($in_fh,$out_fh)
 
-=head2 verbatim
+This method takes an input filehandle (which is assumed to already be
+opened for reading) and reads the entire input stream looking for blocks
+(paragraphs) of POD documentation to be processed. If no first argument
+is given the default input filehandle C<STDIN> is used.
 
-=head2 stopwords
+The C<$in_fh> parameter may be any object that provides a B<getline()>
+method to retrieve a single line of input text (hence, an appropriate
+wrapper object could be used to parse PODs from a single string or an
+array of strings).
 
-       $self->stopwords->isa('Pod::WordList'); # true
+=head2 parse_from_file($filename,$outfile)
+
+This method takes a filename and does the following:
+
+=over 2
+
+=item *
+
+opens the input and output files for reading
+(creating the appropriate filehandles)
+
+=item *
 
-=for :stopwords virtE<ugrave>
+invokes the B<parse_from_filehandle()> method passing it the
+corresponding input and output filehandles.
+
+=item *
+
+closes the input and output files.
+
+=back
+
+If the special input filename "", "-" or "<&STDIN" is given then the STDIN
+filehandle is used for input (and no open or close is performed). If no
+input filename is specified then "-" is implied. Filehandle references,
+or objects that support the regular IO operations (like C<E<lt>$fhE<gt>>
+or C<$fh-<Egt>getline>) are also accepted; the handles must already be
+opened.
+
+If a second argument is given then it should be the name of the desired
+output file. If the special output filename "-" or ">&STDOUT" is given
+then the STDOUT filehandle is used for output (and no open or close is
+performed). If the special output filename ">&STDERR" is given then the
+STDERR filehandle is used for output (and no open or close is
+performed). If no output filehandle is currently in use and no output
+filename is specified, then "-" is implied.
+Alternatively, filehandle references or objects that support the regular
+IO operations (like C<print>, e.g. L<IO::String>) are also accepted;
+the object must already be opened.
 
 =head1 ENCODINGS
 
@@ -387,7 +479,7 @@
 
 =head1 CONTRIBUTORS
 
-=for stopwords David Golden Kent Fredric Mohammad S Anwar Olivier Mengué
+=for stopwords David Golden Kent Fredric Mohammad S Anwar Olivier Mengué Paulo 
Custodio
 
 =over 4
 
@@ -407,6 +499,10 @@
 
 Olivier Mengué <[email protected]>
 
+=item *
+
+Paulo Custodio <[email protected]>
+
 =back
 
 =head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/lib/Pod/Wordlist.pm 
new/Pod-Spell-1.20/lib/Pod/Wordlist.pm
--- old/Pod-Spell-1.19/lib/Pod/Wordlist.pm      2016-02-20 11:49:11.000000000 
+0100
+++ new/Pod-Spell-1.20/lib/Pod/Wordlist.pm      2016-04-22 09:33:47.000000000 
+0200
@@ -2,24 +2,39 @@
 use strict;
 use warnings;
 use Lingua::EN::Inflect 'PL';
-use File::ShareDir::ProjectDistDir 1.000
-       dist_file => defaults => { pathtiny => 1 , strict => 1 };
 
 use Class::Tiny {
-    wordlist  => \&_copy_wordlist,
-    _is_debug => 0,
-    no_wide_chars => 0,
+       wordlist  => \&_copy_wordlist,
+       _is_debug => 0,
+       no_wide_chars => 0,
 };
 
-use constant MAXWORDLENGTH => 50; ## no critic ( ProhibitConstantPragma )
+use Path::Tiny qw( path );
+use constant {
 
-our $VERSION = '1.19'; # VERSION
+       MAXWORDLENGTH => 50,
+
+       _DIST_DIR => do {
+               my $dir;
+               if ( -e __FILE__ ) {
+                       my $local_dir = 
path(__FILE__)->parent->parent->parent->child('share/dist/Pod-Spell');
+                       $dir = $local_dir->absolute if -e $local_dir;
+               }
+               if ( not defined $dir ) {
+                       require File::ShareDir;
+                       $dir = File::ShareDir::dist_dir('Pod-Spell');
+               }
+               "$dir"
+       },
+};
+
+our $VERSION = '1.20'; # VERSION
 
 our %Wordlist; ## no critic ( Variables::ProhibitPackageVars )
 
 sub _copy_wordlist { return { %Wordlist } }
 
-foreach ( dist_file('Pod-Spell', 'wordlist')->lines_utf8({ chomp => 1 })) {
+foreach ( path(_DIST_DIR,'wordlist')->lines_utf8({ chomp => 1 })) {
        $Wordlist{$_} = 1;
        $Wordlist{PL($_)} = 1;
 }
@@ -116,19 +131,19 @@
        my ($self, $word) = @_;
        my $remainder;
 
+       # try word as-is, including possible hyphenation vs stoplist
+       if ($self->is_stopword($word) ) {
+               $remainder = '';
+       }
        # internal period could be abbreviations, so check with
        # trailing period restored and drop or keep on that basis
-       if ( /\./ ) {
+       elsif ( index($word, '.') >= 0 ) {
                my $abbr = "$word.";
                $remainder = $self->is_stopword($abbr) ? '' : $abbr;
        }
-       # try word as-is, including possible hyphenation vs stoplist
-       elsif ($self->is_stopword($word) ) {
-               $remainder = '';
-       }
        # check individual parts of hyphenated word, keep whatever isn't a
        # stopword as individual words
-       elsif ( $word =~ /-/ ) {
+       elsif ( index($word, '-') >= 0 ) {
                my @keep;
                for my $part ( split /-/, $word ) {
                        push @keep, $part if ! $self->is_stopword( $part );
@@ -152,13 +167,15 @@
 
 =encoding UTF-8
 
+=for :stopwords Sean M. Burke Caleb Cushing Olivier Mengué
+
 =head1 NAME
 
 Pod::Wordlist - English words that come up in Perl documentation
 
 =head1 VERSION
 
-version 1.19
+version 1.20
 
 =head1 DESCRIPTION
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/perlcritic.rc 
new/Pod-Spell-1.20/perlcritic.rc
--- old/Pod-Spell-1.19/perlcritic.rc    2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/perlcritic.rc    2016-04-22 09:33:47.000000000 +0200
@@ -4,3 +4,6 @@
 [-Subroutines::RequireFinalReturn]
 [Subroutines::ProhibitExcessComplexity]
 max_mccabe = 30
+[-Subroutines::RequireArgUnpacking]
+[-Modules::ProhibitMultiplePackages]
+[-ValuesAndExpressions::ProhibitConstantPragma]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/t/00-report-prereqs.dd 
new/Pod-Spell-1.20/t/00-report-prereqs.dd
--- old/Pod-Spell-1.19/t/00-report-prereqs.dd   2016-02-20 11:49:11.000000000 
+0100
+++ new/Pod-Spell-1.20/t/00-report-prereqs.dd   2016-04-22 09:33:47.000000000 
+0200
@@ -3,6 +3,9 @@
                         'requires' => {
                                         'ExtUtils::MakeMaker' => '0',
                                         'File::ShareDir::Install' => '0.06'
+                                      },
+                        'suggests' => {
+                                        'JSON::PP' => '2.27300'
                                       }
                       },
        'develop' => {
@@ -11,6 +14,7 @@
                                       'Pod::Coverage::TrustPod' => '0',
                                       'Test::CPAN::Changes' => '0.19',
                                       'Test::CPAN::Meta::JSON' => '0.16',
+                                      'Test::DependentModules' => '0',
                                       'Test::EOL' => '0',
                                       'Test::More' => '0.96',
                                       'Test::Pod' => '1.41',
@@ -25,9 +29,10 @@
                       'requires' => {
                                       'Carp' => '0',
                                       'Class::Tiny' => '0',
-                                      'File::ShareDir::ProjectDistDir' => 
'1.000',
+                                      'File::ShareDir' => '0',
                                       'Lingua::EN::Inflect' => '0',
                                       'POSIX' => '0',
+                                      'Path::Tiny' => '0',
                                       'Pod::Escapes' => '0',
                                       'Pod::Parser' => '0',
                                       'Text::Wrap' => '0',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/t/00-report-prereqs.t 
new/Pod-Spell-1.20/t/00-report-prereqs.t
--- old/Pod-Spell-1.19/t/00-report-prereqs.t    2016-02-20 11:49:11.000000000 
+0100
+++ new/Pod-Spell-1.20/t/00-report-prereqs.t    2016-04-22 09:33:47.000000000 
+0200
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.021
+# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.024
 
 use Test::More tests => 1;
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/t/fix_21.t 
new/Pod-Spell-1.20/t/fix_21.t
--- old/Pod-Spell-1.19/t/fix_21.t       1970-01-01 01:00:00.000000000 +0100
+++ new/Pod-Spell-1.20/t/fix_21.t       2016-04-22 09:33:47.000000000 +0200
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use Test::More;
+
+use Pod::Spell;
+use Pod::Wordlist;
+
+my $DEBUG = 0;
+my $w;
+
+$w = Pod::Wordlist->new(_is_debug => $DEBUG);
+$w->learn_stopwords("Ph.D");
+is $w->strip_stopwords("Ph.D. John Doe"), "John Doe", "Abbreviation without 
final dot";
+
+$w = Pod::Wordlist->new(_is_debug => $DEBUG);
+$w->learn_stopwords("Ph.D.");
+is $w->strip_stopwords("Ph.D. John Doe"), "John Doe", "Abbreviation with final 
dot";
+
+$w = Pod::Wordlist->new(_is_debug => $DEBUG);
+$w->learn_stopwords("anaglyph.pl");
+is $w->strip_stopwords("Name: anaglyph.pl"), "Name", "Program name with 
extension";
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/xt/author/eol.t 
new/Pod-Spell-1.20/xt/author/eol.t
--- old/Pod-Spell-1.19/xt/author/eol.t  2016-02-20 11:49:11.000000000 +0100
+++ new/Pod-Spell-1.20/xt/author/eol.t  2016-04-22 09:33:47.000000000 +0200
@@ -15,6 +15,7 @@
     't/00-report-prereqs.t',
     't/basic.t',
     't/debug.t',
+    't/fix_21.t',
     't/get-stopwords.t',
     't/text-block.t',
     't/utf8.t'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/xt/author/pod-spell.t 
new/Pod-Spell-1.20/xt/author/pod-spell.t
--- old/Pod-Spell-1.19/xt/author/pod-spell.t    2016-02-20 11:49:11.000000000 
+0100
+++ new/Pod-Spell-1.20/xt/author/pod-spell.t    2016-04-22 09:33:47.000000000 
+0200
@@ -32,6 +32,9 @@
 Anwar
 mohammad
 dolmen
+Paulo
+Custodio
+pauloscustodio
 lib
 Pod
 Spell
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Pod-Spell-1.19/xt/smoke/dependents.t 
new/Pod-Spell-1.20/xt/smoke/dependents.t
--- old/Pod-Spell-1.19/xt/smoke/dependents.t    1970-01-01 01:00:00.000000000 
+0100
+++ new/Pod-Spell-1.20/xt/smoke/dependents.t    2016-04-22 09:33:47.000000000 
+0200
@@ -0,0 +1,6 @@
+use strict;
+use warnings;
+
+use Test::DependentModules qw( test_all_dependents );
+
+test_all_dependents('Pod::Spell');


Reply via email to