From: Wayne Scott <wscott@ichips.intel.com>
Date: Wed, 8 Jan 1997 23:25:19 +0000 (-0800)
Subject: Don't search for pod if path is already valid
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=88f0eda82bb679b4e6445ccb17e18d0781c6a5da;p=p5sagit%2Fp5-mst-13.2.git

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