X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installman;h=2260c26d4249b7fcb43557b9d89ba7cc6c1672d5;hb=fe53aa5bafbad898597f77488a12ad889fba4485;hp=47551623d03a1a5a02bbc884935982c251721f79;hpb=bf1ee2ba28fe97d6143744a53d7e6d6c9b174b60;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installman b/installman
index 4755162..2260c26 100755
--- a/installman
+++ b/installman
@@ -83,7 +83,7 @@ while (<UTILS>) {
     next if /^#/;
     chomp;
     $_ = $1 if /#.*pod\s*=\s*(\S+)/;
-    my ($where, $what) = m|^(.*?)/(\S+)|;
+    my ($where, $what) = m|^(\S*)/(\S+)|;
     pod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
     if ($has_man1dir) {
 	if (my ($where2, $what2) = m|#.*link\s*=\s*(\S+)/(\S+)|) {
@@ -139,6 +139,7 @@ sub pod2man {
 	my $tmp;
 	# Skip .pm files that have corresponding .pod files, and Functions.pm.
 	next if (($tmp = $mod) =~ s/\.pm$/.pod/ && -f $tmp);
+	next if $mod =~ m:/t/:; # no pods from test directories 
 	next if ($manpage eq 'Pod/Functions.pm'); #### Used only by pod itself
 
 	# Convert name from  File/Basename.pm to File::Basename.3 format,