From: Robin Barker <RMBarker@cpan.org>
Date: Mon, 29 Jun 1998 15:04:57 +0000 (+0000)
Subject: perldoc.PL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0d3da1c83c7295757745950f76ff9cfcd4d61253;p=p5sagit%2Fp5-mst-13.2.git

perldoc.PL

	Message-Id: <13254.9806291404@tempest.cise.npl.co.uk>

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

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 3805f6a..2b4ef6a 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -123,8 +123,10 @@ getopts("mhtluvriFf:Xq:") || usage;
 
 usage if $opt_h || $opt_h; # avoid -w warning
 
-$podidx = "$Config{'archlib'}/pod.idx";
-$podidx = "" if $opt_X || !-f "pod.idx" && !-r _ && -M _ > 7;
+if( $opt_X ) {
+    $podidx = "$Config{'archlib'}/pod.idx";
+    $podidx = "" unless -f $podidx && -r _ && -M _ <= 7;
+}
 
 if ($opt_t + $opt_u + $opt_m + $opt_l > 1) {
     usage("only one of -t, -u, -m or -l")