summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
Diffstat (limited to 'utils')
-rw-r--r--utils/perldoc.PL6
1 files changed, 4 insertions, 2 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 3805f6abe4..2b4ef6a0a9 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")