diff options
| author | Robin Houston <robin@cpan.org> | 1998-03-24 13:19:38 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-04-02 15:45:33 +0000 |
| commit | 3046dd9f116f33f5638c83eda2e9d417ecb704b6 (patch) | |
| tree | 21026ed51012b66cf2f7c0349d4e3bf4d6bd680a /utils/perldoc.PL | |
| parent | 37dcc6f1d6969647af005eec7b1cbdaf4944ec16 (diff) | |
| download | perl-3046dd9f116f33f5638c83eda2e9d417ecb704b6.tar.gz | |
perldoc -m
p4raw-id: //depot/perl@850
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index ee56e0206d..3a6059b4fd 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -206,7 +206,11 @@ sub minus_f_nocase { sub check_file { my($file) = @_; - return minus_f_nocase($file) && containspod($file) ? $file : ""; + if ($opt_m) { + return minus_f_nocase($file) ? $file : ""; + } else { + return minus_f_nocase($file) && containspod($file) ? $file : ""; + } } |