[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 (file)
--- 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($_);