From: Robin Houston <robin@cpan.org>
Date: Tue, 24 Mar 1998 13:19:38 +0000 (+0000)
Subject: perldoc -m
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3046dd9f116f33f5638c83eda2e9d417ecb704b6;p=p5sagit%2Fp5-mst-13.2.git

perldoc -m

p4raw-id: //depot/perl@850
---

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