From: Alexey Tourbin <at@altlinux.ru>
Date: Sun, 3 Aug 2003 21:33:00 +0000 (+0400)
Subject: Debian patch that skips podless modules
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63fae90782a9851db725590019f02999dc17a13e;p=p5sagit%2Fp5-mst-13.2.git

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
---

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)$##;