Re: [perl #17605] strange behaviour (difference between perl 5.6 and perl 5.8.0)...

[p5sagit/p5-mst-13.2.git] / installman

diff --git a/installman b/installman
index 360d4f3..2260c26 100755 (executable)
--- a/installman
+++ b/installman
@@ -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,