Update Pod-Parser to CPAN version 1.63
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 11 Feb 2015 14:30:08 +0000 (14:30 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 11 Feb 2015 14:30:08 +0000 (14:30 +0000)
  [DELTA]

 10-Feb-2015           Marek Rouchal                        <marekr@cpan.org>
 -----------------------------------------------------------------------------
 Version 1.63
 + CPAN#101847: [PATCH] Bump $VERSION in module changed since Pod-Parser-1.60
   increased VERSION in all *.pm files
 + CPAN#98610: Pod::Find should skip also object directories of modern vc
   systems (.git, .hg)
   implemented in Pod::Find
 Thanks for the reports and patches!

Porting/Maintainers.pl
cpan/Pod-Parser/lib/Pod/Find.pm
cpan/Pod-Parser/lib/Pod/InputObjects.pm
cpan/Pod-Parser/lib/Pod/ParseUtils.pm
cpan/Pod-Parser/lib/Pod/Parser.pm
cpan/Pod-Parser/lib/Pod/Select.pm
cpan/Pod-Parser/t/pod/find.t

index 9fc9f1c..b10c8a4 100755 (executable)
@@ -914,10 +914,8 @@ use File::Glob qw(:case);
     },
 
     'Pod::Parser' => {
-        'DISTRIBUTION' => 'MAREKR/Pod-Parser-1.62.tar.gz',
+        'DISTRIBUTION' => 'MAREKR/Pod-Parser-1.63.tar.gz',
         'FILES'        => q[cpan/Pod-Parser],
-        # Waiting to be merged upstream: see CPAN RT#101847
-        'CUSTOMIZED'   => [ qw( lib/Pod/PlainText.pm) ],
     },
 
     'Pod::Perldoc' => {
index 6149e79..f258f26 100644 (file)
@@ -14,7 +14,7 @@ package Pod::Find;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '1.62';   ## Current version of this package
+$VERSION = '1.63';   ## Current version of this package
 require  5.005;   ## requires this Perl version or later
 use Carp;
 
@@ -56,7 +56,7 @@ so be sure to specify them in the B<use> statement if you need them:
   use Pod::Find qw(pod_find);
 
 From this version on the typical SCM (software configuration management)
-files/directories like RCS, CVS, SCCS, .svn are ignored.
+directories are ignored. These are: RCS, CVS, SCCS, .svn, .hg, .git, .sync
 
 =cut
 
@@ -226,7 +226,7 @@ sub pod_find
         File::Find::find( sub {
             my $item = $File::Find::name;
             if(-d) {
-                if($item =~ m{/(?:RCS|CVS|SCCS|\.svn)$}) {
+                if($item =~ m{/(?:RCS|CVS|SCCS|\.svn|\.hg|\.git|\.sync)$}) {
                     $File::Find::prune = 1;
                     return;
                 }
index 87ce247..c4d6fc2 100644 (file)
@@ -12,7 +12,7 @@ package Pod::InputObjects;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '1.62';  ## Current version of this package
+$VERSION = '1.63';  ## Current version of this package
 require  5.005;    ## requires this Perl version or later
 
 #############################################################################
index e1ff2ae..2afd0cd 100644 (file)
@@ -11,7 +11,7 @@ package Pod::ParseUtils;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '1.62'; ## Current version of this package
+$VERSION = '1.63'; ## Current version of this package
 require  5.005;    ## requires this Perl version or later
 
 =head1 NAME
index f3a8619..63edcd2 100644 (file)
@@ -12,7 +12,7 @@ use strict;
 
 ## These "variables" are used as local "glob aliases" for performance
 use vars qw($VERSION @ISA %myData %myOpts @input_stack);
-$VERSION = '1.62';  ## Current version of this package
+$VERSION = '1.63';  ## Current version of this package
 require  5.005;    ## requires this Perl version or later
 
 #############################################################################
index 6657def..70267e9 100644 (file)
@@ -11,7 +11,7 @@ package Pod::Select;
 use strict;
 
 use vars qw($VERSION @ISA @EXPORT $MAX_HEADING_LEVEL %myData @section_headings @selected_sections);
-$VERSION = '1.62'; ## Current version of this package
+$VERSION = '1.63'; ## Current version of this package
 require  5.005;    ## requires this Perl version or later
 
 #############################################################################
index 7cfd7ae..90a57ad 100644 (file)
@@ -67,6 +67,12 @@ if($^O =~ /dos|win32/i && $resfile =~ /~\d(?=\\|$)/) {
     $resfile =~ s/\\~\d(?=\\|$)/[^\\\\]+/g;\r
     ok($cmpfile =~ /^$resfile$/, "pod_where found File::Find (with long filename matching)") ||\r
       diag("'$cmpfile' does not match /^$resfile\$/");\r
+} elsif($^O =~ /dos|win32/i && $cmpfile =~ /~\d(?=\\|$)/) {\r
+    # we have ~1 short filenames\r
+    $cmpfile = quotemeta($cmpfile);\r
+    $cmpfile =~ s/\\~\d(?=\\|$)/[^\\\\]+/g;\r
+    ok($resfile =~ /^$cmpfile$/, "pod_where found File::Find (with long filename matching)") ||\r
+      diag("'$resfile' does not match /^$cmpfile\$/");\r
 } else {\r
     is($resfile,$cmpfile,"pod_where found File::Find");\r
 }\r