From: Mike Guy <mjtg@cam.ac.uk>
Date: Tue, 15 Aug 2000 12:10:50 +0000 (+0100)
Subject: [ID 20000815.005] [PATCH] perldoc not looking in the right place for script pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2d48270b47e8bf1cc41c6d1fe80da6206b6cc2c;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 5d136b3..c7e9970 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($_);