diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-27 04:36:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-27 04:36:39 +0000 |
| commit | 31e5645579ece4c41b72ec55a303b796b7409118 (patch) | |
| tree | b95190945ab59733ba668e86adc73aac7ecf3790 | |
| parent | 9d28db1aac83d451098ecdecc42a551f9d846311 (diff) | |
| download | perl-31e5645579ece4c41b72ec55a303b796b7409118.tar.gz | |
don't quit if =head* wasn't found (suggested by Roland Bauer
<roland.bauer@fff.at>)
p4raw-id: //depot/perl@3785
| -rw-r--r-- | lib/Pod/Html.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 6fb8dcab28..4a8d066e57 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -346,8 +346,7 @@ sub pod2html { my $index = scan_headings(\%sections, @poddata); unless($index) { - warn "No pod in $podfile\n" if $verbose; - return; + warn "No headings in $podfile\n" if $verbose; } # open the output file @@ -422,7 +421,7 @@ END_OF_HEAD print HTML $index; print HTML "-->\n" unless $doindex; print HTML "<!-- INDEX END -->\n\n"; - print HTML "<HR>\n" if $doindex; + print HTML "<HR>\n" if $doindex and $index; # now convert this file warn "Converting input file\n" if $verbose; |