From 63fae90782a9851db725590019f02999dc17a13e Mon Sep 17 00:00:00 2001
From: Alexey Tourbin <at@altlinux.ru>
Date: Mon, 4 Aug 2003 01:33:00 +0400
Subject: [PATCH] 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
---
 installman | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

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