diff options
author | Wayne Scott <wscott@ichips.intel.com> | 1997-01-08 15:25:19 -0800 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-16 07:24:00 +1200 |
commit | 88f0eda82bb679b4e6445ccb17e18d0781c6a5da (patch) | |
tree | 25f19969241e5e5fcf06b662e143f6b009c61da3 | |
parent | 50e0d465254be88fb90ac23584812a529741b4b1 (diff) | |
download | perl-88f0eda82bb679b4e6445ccb17e18d0781c6a5da.tar.gz |
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>
-rw-r--r-- | utils/perldoc.PL | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index e0f8a43b86..88608cf5d7 100644 --- 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; |