diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2013-10-07 08:53:10 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-10-07 09:42:30 +0100 |
commit | b52cde68813a958007c6d814f1890e762f75c8dc (patch) | |
tree | bd18c379be875824141b495085b6540ebe094b45 /cpan | |
parent | d477c82bf8b8c629be2915335abd4358a5bd0132 (diff) | |
download | perl-b52cde68813a958007c6d814f1890e762f75c8dc.tar.gz |
Upgrade podlators from 2.5.2 to 2.5.3.
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/podlators/VERSION | 2 | ||||
-rw-r--r-- | cpan/podlators/lib/Pod/Man.pm | 2 | ||||
-rw-r--r-- | cpan/podlators/lib/Pod/Text.pm | 2 | ||||
-rw-r--r-- | cpan/podlators/t/man-empty.t | 22 | ||||
-rw-r--r-- | cpan/podlators/t/text-empty.t | 14 |
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'); +} |