Upgrade podlators from 2.5.2 to 2.5.3.

5 files changed, 32 insertions, 10 deletions

diff --git a/cpan/podlators/VERSION b/cpan/podlators/VERSION
index 492e415770..4c073131b3 100644
--- 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 39ff7f5ace..72ca9ff1da 100644
--- 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 ed95591e6e..87f9e816d0 100644
--- 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 8ba97dff57..1e094c8527 100644
--- 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 0a4c66acf7..2164a75748 100644
--- 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');
+}