Upgrade podlators from 2.5.2 to 2.5.3.

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 4afe7c0..ff826a1 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1324,7 +1324,7 @@ use File::Glob qw(:case);
     },
 
     'podlators' => {
-        'DISTRIBUTION' => 'RRA/podlators-2.5.2.tar.gz',
+        'DISTRIBUTION' => 'RRA/podlators-2.5.3.tar.gz',
         'FILES'        => q[cpan/podlators pod/perlpodstyle.pod],
 
         # The perl distribution has pod2man.PL and pod2text.PL,  which are

diff --git a/cpan/podlators/VERSION b/cpan/podlators/VERSION
index 492e415..4c07313 100644 (file)
--- a/cpan/podlators/VERSION
+++ b/cpan/podlators/VERSION
@@ -1 +1 @@
-$VERSION = '2.5.2';
+$VERSION = '2.5.3';

diff --git a/cpan/podlators/lib/Pod/Man.pm b/cpan/podlators/lib/Pod/Man.pm
index 39ff7f5..72ca9ff 100644 (file)
--- a/cpan/podlators/lib/Pod/Man.pm
+++ b/cpan/podlators/lib/Pod/Man.pm
@@ -1640,7 +1640,7 @@ not to throw an exception.  C<pod> says to include a POD ERRORS section
 in the resulting documentation summarizing the errors.  C<none> ignores
 POD errors entirely, as much as possible.
 
-The default is C<output>.
+The default is C<pod>.
 
 =item date
 

diff --git a/cpan/podlators/lib/Pod/Text.pm b/cpan/podlators/lib/Pod/Text.pm
index ed95591..87f9e81 100644 (file)
--- a/cpan/podlators/lib/Pod/Text.pm
+++ b/cpan/podlators/lib/Pod/Text.pm
@@ -808,7 +808,7 @@ not to throw an exception.  C<pod> says to include a POD ERRORS section
 in the resulting documentation summarizing the errors.  C<none> ignores
 POD errors entirely, as much as possible.
 
-The default is C<output>.
+The default is C<pod>.
 
 =item indent
 

diff --git a/cpan/podlators/t/man-empty.t b/cpan/podlators/t/man-empty.t
index 8ba97df..1e094c8 100644 (file)
--- a/cpan/podlators/t/man-empty.t
+++ b/cpan/podlators/t/man-empty.t
@@ -27,16 +27,28 @@ isa_ok ($parser, 'Pod::Man');
 my $output;
 $parser->output_string (\$output);
 
-# Try a POD document where the only command is invalid.
+# Try a POD document where the only command is invalid.  With recent
+# Pod::Simple, there will be a POD ERRORS section.  With older versions of
+# Pod::Simple, we have to skip the test since it doesn't trigger this problem.
+# Be sure that we don't get any warnings as well as any errors.
+local $SIG{__WARN__} = sub { die $_[0] };
 ok (eval { $parser->parse_string_document("=\xa0") },
     'Parsed invalid document');
 is ($@, '', '...with no errors');
-like ($output, qr{\.SH \"POD ERRORS\"},
-      '...and output contains a POD ERRORS section');
+SKIP: {
+    skip 'Pod::Simple does not produce errors for invalid commands', 1
+        if $output eq q{};
+    like ($output, qr{\.SH \"POD ERRORS\"},
+          '...and output contains a POD ERRORS section');
+}
 
 # Try with a document containing only =cut.
 ok (eval { $parser->parse_string_document("=cut") },
     'Parsed invalid document');
 is ($@, '', '...with no errors');
-like ($output, qr{\.SH \"POD ERRORS\"},
-      '...and output contains a POD ERRORS section');
+SKIP: {
+    skip 'Pod::Simple does not produce errors for invalid commands', 1
+        if $output eq q{};
+    like ($output, qr{\.SH \"POD ERRORS\"},
+          '...and output contains a POD ERRORS section');
+}

diff --git a/cpan/podlators/t/text-empty.t b/cpan/podlators/t/text-empty.t
index 0a4c66a..2164a75 100644 (file)
--- a/cpan/podlators/t/text-empty.t
+++ b/cpan/podlators/t/text-empty.t
@@ -33,10 +33,20 @@ local $SIG{__WARN__} = sub { die $_[0] };
 ok (eval { $parser->parse_string_document("=\xa0") },
     'Parsed invalid document');
 is ($@, '', '...with no errors');
-like ($output, qr{POD ERRORS}, '...and output contains a POD ERRORS section');
+SKIP: {
+    skip 'Pod::Simple does not produce errors for invalid commands', 1
+        if $output eq q{};
+    like ($output, qr{POD ERRORS},
+          '...and output contains a POD ERRORS section');
+}
 
 # Try with a document containing only =cut.
 ok (eval { $parser->parse_string_document("=cut") },
     'Parsed invalid document');
 is ($@, '', '...with no errors');
-like ($output, qr{POD ERRORS}, '...and output contains a POD ERRORS section');
+SKIP: {
+    skip 'Pod::Simple does not produce errors for invalid commands', 1
+        if $output eq q{};
+    like ($output, qr{POD ERRORS},
+          '...and output contains a POD ERRORS section');
+}

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 8732b6e..eb8e5a3 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -179,7 +179,7 @@ Warnings are now disabled during version evaluation.
 
 =item *
 
-The podlators modules have been upgraded from version 2.5.1 to 2.5.2.
+The podlators modules have been upgraded from version 2.5.1 to 2.5.3.
 
 Numerous updates and bug fixes are incorporated.  See the F<Changes> file in
 the CPAN distribution for full details.