diff options
| -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 : ""; + } } |