Debian patch that skips podless modules

Message-ID: <20030803173300.GC2076@julia.office.altlinux.ru>

(plus Schwern's and Robert's nits)

p4raw-id: //depot/perl@20466

1 files changed, 19 insertions, 0 deletions

diff --git a/installman b/installman
index 56aeb43790..79c603593e 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)$##;