From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 27 Jul 1999 04:36:39 +0000 (+0000)
Subject: don't quit if =head* wasn't found (suggested by Roland Bauer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31e5645579ece4c41b72ec55a303b796b7409118;p=p5sagit%2Fp5-mst-13.2.git

don't quit if =head* wasn't found (suggested by Roland Bauer
<roland.bauer@fff.at>)

p4raw-id: //depot/perl@3785
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 6fb8dca..4a8d066 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;