From 3046dd9f116f33f5638c83eda2e9d417ecb704b6 Mon Sep 17 00:00:00 2001
From: Robin Houston <robin@cpan.org>
Date: Tue, 24 Mar 1998 13:19:38 +0000
Subject: [PATCH] perldoc -m

p4raw-id: //depot/perl@850
---
 utils/perldoc.PL | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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