This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
d54bf66
)
perldoc.PL
author
Robin Barker
<RMBarker@cpan.org>
Mon, 29 Jun 1998 15:04:57 +0000
(15:04 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Tue, 30 Jun 1998 05:38:34 +0000
(
05:38
+0000)
Message-Id: <13254.
9806291404
@tempest.cise.npl.co.uk>
p4raw-id: //depot/perl@1268
utils/perldoc.PL
patch
|
blob
|
blame
|
history
diff --git
a/utils/perldoc.PL
b/utils/perldoc.PL
index
3805f6a
..
2b4ef6a
100644
(file)
--- 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")