perldoc -m

p4raw-id: //depot/perl@850

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index ee56e02..3a6059b 100644 (file)
--- 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 : "";
+    }
 }