diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 0824e0a90f..7929a27933 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -342,7 +342,7 @@ sub searchfor { for ($i=0; $i<@dirs; $i++) { $dir = $dirs[$i]; ($dir = VMS::Filespec::unixpath($dir)) =~ s!/\z!! if $Is_VMS; - if ( ( $ret = check_file $dir,"$s.pod") + if ( (! $opt_m && ( $ret = check_file $dir,"$s.pod")) or ( $ret = check_file $dir,"$s.pm") or ( $ret = check_file $dir,$s) or ( $Is_VMS and @@ -458,7 +458,8 @@ foreach (@pages) { print STDERR "Loosely found as @files\n" if $opt_v; } else { - print STDERR "No documentation found for \"$_\".\n"; + print STDERR "No " . + ($opt_m ? "module" : "documentation") . " found for \"$_\".\n"; if (@global_found) { print STDERR "However, try\n"; for my $dir (@global_found) { |