Update Pod-Parser to CPAN version 1.63

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

7 files changed, 14 insertions, 10 deletions

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 9fc9f1c8ee..b10c8a4ad9 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -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' => {
diff --git a/cpan/Pod-Parser/lib/Pod/Find.pm b/cpan/Pod-Parser/lib/Pod/Find.pm
index 6149e7940a..f258f26df6 100644
--- a/cpan/Pod-Parser/lib/Pod/Find.pm
+++ b/cpan/Pod-Parser/lib/Pod/Find.pm
@@ -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;
                 }
diff --git a/cpan/Pod-Parser/lib/Pod/InputObjects.pm b/cpan/Pod-Parser/lib/Pod/InputObjects.pm
index 87ce2478f6..c4d6fc2469 100644
--- a/cpan/Pod-Parser/lib/Pod/InputObjects.pm
+++ b/cpan/Pod-Parser/lib/Pod/InputObjects.pm
@@ -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
 
 #############################################################################
diff --git a/cpan/Pod-Parser/lib/Pod/ParseUtils.pm b/cpan/Pod-Parser/lib/Pod/ParseUtils.pm
index e1ff2aeb19..2afd0cd420 100644
--- a/cpan/Pod-Parser/lib/Pod/ParseUtils.pm
+++ b/cpan/Pod-Parser/lib/Pod/ParseUtils.pm
@@ -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
diff --git a/cpan/Pod-Parser/lib/Pod/Parser.pm b/cpan/Pod-Parser/lib/Pod/Parser.pm
index f3a861982b..63edcd2e19 100644
--- a/cpan/Pod-Parser/lib/Pod/Parser.pm
+++ b/cpan/Pod-Parser/lib/Pod/Parser.pm
@@ -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
 
 #############################################################################
diff --git a/cpan/Pod-Parser/lib/Pod/Select.pm b/cpan/Pod-Parser/lib/Pod/Select.pm
index 6657def58f..70267e94ec 100644
--- a/cpan/Pod-Parser/lib/Pod/Select.pm
+++ b/cpan/Pod-Parser/lib/Pod/Select.pm
@@ -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
 
 #############################################################################
diff --git a/cpan/Pod-Parser/t/pod/find.t b/cpan/Pod-Parser/t/pod/find.t
index 7cfd7ae613..90a57adaac 100644
--- a/cpan/Pod-Parser/t/pod/find.t
+++ b/cpan/Pod-Parser/t/pod/find.t
@@ -67,6 +67,12 @@ if($^O =~ /dos|win32/i && $resfile =~ /~\d(?=\\|$)/) {
     $resfile =~ s/\\~\d(?=\\|$)/[^\\\\]+/g;

     ok($cmpfile =~ /^$resfile$/, "pod_where found File::Find (with long filename matching)") ||

       diag("'$cmpfile' does not match /^$resfile\$/");

+} elsif($^O =~ /dos|win32/i && $cmpfile =~ /~\d(?=\\|$)/) {

+    # we have ~1 short filenames

+    $cmpfile = quotemeta($cmpfile);

+    $cmpfile =~ s/\\~\d(?=\\|$)/[^\\\\]+/g;

+    ok($resfile =~ /^$cmpfile$/, "pod_where found File::Find (with long filename matching)") ||

+      diag("'$resfile' does not match /^$cmpfile\$/");

 } else {

     is($resfile,$cmpfile,"pod_where found File::Find");

 }