Don't search for pod if path is already valid

Subject: Re: perldoc problem?

> perldoc doesn't seem to work on absolute paths. Eg if you
> try
>         perldoc /pdx/wmt/rtl/bin/analyze_netlist
> it waits  and then complains. Wheras if you actually do
>         cd /pdx/wmt/rtl/bin;perldoc analyze_netlist
> it works I've been waiting for this fix to happen for sometime.

This change to perldoc fixes the problem.

-Wayne

p5p-msgid: <199701082325.PAA04521@pdxlx008.intel.com>

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index e0f8a43..88608cf 100644 (file)
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -154,6 +154,10 @@ sub containspod {
        my $ret;
        my $i;
        my $dir;
+
+       if (-f $s and containspod $s) {
+               return $s;
+       }
        for ($i=0;$i<@dirs;$i++) {
                $dir = $dirs[$i];
                ($dir = VMS::Filespec::unixpath($dir)) =~ s!/$!! if $Is_VMS;