diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-13 16:41:05 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-13 16:41:05 +0000 |
| commit | d5c61f7c3478189627500a82494061b415064f59 (patch) | |
| tree | bd9c2cc671259a1b0529c884d7696e9cf23f036c /lib/Pod/Checker.pm | |
| parent | 719b43e8a7892cfc854b9123fcad88c53828b0b9 (diff) | |
| download | perl-d5c61f7c3478189627500a82494061b415064f59.tar.gz | |
Upgrade to Pod::Parser 1.30
p4raw-id: //depot/perl@24034
Diffstat (limited to 'lib/Pod/Checker.pm')
| -rw-r--r-- | lib/Pod/Checker.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/Pod/Checker.pm b/lib/Pod/Checker.pm index 1e01392af0..aeb550d521 100644 --- a/lib/Pod/Checker.pm +++ b/lib/Pod/Checker.pm @@ -204,6 +204,7 @@ These may not necessarily cause trouble, but indicate mediocre style. The POD file has some C<=item> and/or C<=head> commands that have the same text. Potential hyperlinks to such a text cannot be unique then. +This warning is printed only with warning level greater than one. =item * line containing nothing but whitespace in paragraph @@ -786,11 +787,13 @@ sub end_pod { # check the internal nodes for uniqueness. This pertains to # =headX, =item and X<...> - foreach(grep($self->{_unique_nodes}->{$_} > 1, - keys %{$self->{_unique_nodes}})) { - $self->poderror({ -line => '-', -file => $infile, + if($self->{-warnings} && $self->{-warnings}>1) { + foreach(grep($self->{_unique_nodes}->{$_} > 1, + keys %{$self->{_unique_nodes}})) { + $self->poderror({ -line => '-', -file => $infile, -severity => 'WARNING', -msg => "multiple occurrence of link target '$_'"}); + } } # no POD found here |