X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installman;h=79c603593e88cfcf0f9962f3de5307c782ce9d0e;hb=5ab053b06800167d2bc083dd4186b23d7cb95fce;hp=56aeb43790e897a55f2d1e5c3827a56a0c847560;hpb=1ef57a5cc2e49e0fc5bdab2d40bc9f1dd2983a4e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installman b/installman
index 56aeb43..79c6035 100755
--- a/installman
+++ b/installman
@@ -142,6 +142,25 @@ sub pod2man {
 	next if $mod =~ m:/t/:; # no pods from test directories 
 	next if ($manpage eq 'Pod/Functions.pm'); #### Used only by pod itself
 
+	# Skip files without pod docs
+	my $has_pod;
+	if (open T, $mod)
+	{
+	    local $_;
+	    while (<T>)
+	    {
+		++$has_pod and last if /^=(?:head\d+|item|pod)\b/;
+	    }
+
+	    close T;
+	}
+
+	unless ($has_pod)
+	{
+	    warn "no documentation in $mod\n";
+	    next;
+	}
+
 	# Convert name from  File/Basename.pm to File::Basename.3 format,
 	# if necessary.
 	$manpage =~ s#\.p(m|od)$##;