This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
don't quit if =head* wasn't found (suggested by Roland Bauer
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 27 Jul 1999 04:36:39 +0000 (04:36 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 27 Jul 1999 04:36:39 +0000 (04:36 +0000)
<roland.bauer@fff.at>)

p4raw-id: //depot/perl@3785

lib/Pod/Html.pm

index 6fb8dca..4a8d066 100644 (file)
@@ -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;