diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-15 13:10:50 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-15 14:01:46 +0000 |
| commit | a2d48270b47e8bf1cc41c6d1fe80da6206b6cc2c (patch) | |
| tree | 725b1a99767bdd95a11c2be39855ee17213f87d4 /utils | |
| parent | 017e10814b1e1d25c7506a0b0903863aee5cb0ca (diff) | |
| download | perl-a2d48270b47e8bf1cc41c6d1fe80da6206b6cc2c.tar.gz | |
[ID 20000815.005] [PATCH] perldoc not looking in the right place for script pod
Message-Id: <E13OecM-0006nF-00@libra.cus.cam.ac.uk>
p4raw-id: //depot/perl@6633
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 5d136b305c..c7e9970dd4 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -439,9 +439,9 @@ foreach (@pages) { next; } print STDERR "Searching for $_\n" if $opt_v; - # We must look both in @INC for library modules and in PATH + # We must look both in @INC for library modules and in $bindir # for executables, like h2xs or perldoc itself. - my @searchdirs = @INC; + my @searchdirs = ($bindir, @INC); if ($opt_F) { next unless -r; push @found, $_ if $opt_m or containspod($_); |