diff options
| author | Marc Green <marcgreen@cpan.org> | 2011-12-20 16:15:47 -0500 |
|---|---|---|
| committer | Marc Green <marcgreen@cpan.org> | 2011-12-20 17:00:23 -0500 |
| commit | a572a4fcb0026bb668c094b388269fe28b8f6592 (patch) | |
| tree | ed8d328d8c7aba0038fa5ab92fadb706b398318f | |
| parent | 31dede8bcfd208fc3b5da25893dea8d241a44ce3 (diff) | |
| download | perl-a572a4fcb0026bb668c094b388269fe28b8f6592.tar.gz | |
Check for empty string, not for falseness.
Thanks to Karl Williamson for finding the bug.
| -rw-r--r-- | cpan/Pod-Parser/lib/Pod/Checker.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/Pod-Parser/lib/Pod/Checker.pm b/cpan/Pod-Parser/lib/Pod/Checker.pm index ae2647413f..5955f8243e 100644 --- a/cpan/Pod-Parser/lib/Pod/Checker.pm +++ b/cpan/Pod-Parser/lib/Pod/Checker.pm @@ -861,7 +861,7 @@ sub end_item_text { shift->end_item('definition') } sub end_item { my $self = shift; my $type = shift; - if (!$self->{'_thispara'}) { + if ($self->{'_thispara'} eq '') { $self->poderror({ -line => $self->{'_line'}, -severity => 'WARNING', -msg => '=item has no contents' }); |