diff options
| author | John L. Allen <allen@grumman.com> | 2002-03-22 10:38:35 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-23 20:44:57 +0000 |
| commit | f1cdc2b65e910cc1cb975a153f8b593cf8934cde (patch) | |
| tree | f1d0b2b9732b7cb03425b8c7f1961cf31c3ea0a6 /utils | |
| parent | 60b8437d8d9e12207c224aaf44898f800c31446c (diff) | |
| download | perl-f1cdc2b65e910cc1cb975a153f8b593cf8934cde.tar.gz | |
perldoc -m [PATCH]
From: "John L. Allen" <allen@grumman.com>
Message-ID: <Pine.SOL.3.91.1020322151516.25645A-100000@gateway.grumman.com>
p4raw-id: //depot/perl@15449
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) { |