diff options
| author | Robin Barker <RMBarker@cpan.org> | 1998-06-29 15:04:57 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-30 05:38:34 +0000 |
| commit | 0d3da1c83c7295757745950f76ff9cfcd4d61253 (patch) | |
| tree | e28cfbbd02f74f0d734be07f95cff13983c0d88b /utils/perldoc.PL | |
| parent | d54bf66f316184872ac87c4594ab8c34b6dedc9e (diff) | |
| download | perl-0d3da1c83c7295757745950f76ff9cfcd4d61253.tar.gz | |
perldoc.PL
Message-Id: <13254.9806291404@tempest.cise.npl.co.uk>
p4raw-id: //depot/perl@1268
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 6 |
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") |