diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-10 10:31:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-10 10:31:46 +0000 |
| commit | bedb3eda9cc0dff5f60e1d7c83c2a82287a6b580 (patch) | |
| tree | ac08b21139393701d8f76377aa6646197c5297f6 /utils | |
| parent | dbba660d3c41b689165c852b880d602ed8d35700 (diff) | |
| parent | 7ec2cea42ff48a380e66445f3c1f56b9ff25c203 (diff) | |
| download | perl-bedb3eda9cc0dff5f60e1d7c83c2a82287a6b580.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4334
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 7dc478b4e7..e0f276af94 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -243,6 +243,7 @@ sub minus_f_nocase { sub check_file { my($dir,$file) = @_; + return "" if length $dir and not -d $dir; if ($opt_m) { return minus_f_nocase($dir,$file); } @@ -278,6 +279,8 @@ sub searchfor { $ret = check_file $dir,"$s.bat") or ( $ret = check_file "$dir/pod","$s.pod") or ( $ret = check_file "$dir/pod",$s) + or ( $ret = check_file "$dir/pods","$s.pod") + or ( $ret = check_file "$dir/pods",$s) ) { return $ret; } @@ -708,6 +711,10 @@ and others. =cut # +# Version 1.15: Tue Aug 24 01:50:20 EST 1999 +# Charles Wilson <cwilson@ece.gatech.edu> +# changed /pod/ directory to /pods/ for cygwin +# to support cygwin/win32 # Version 1.14: Wed Jul 15 01:50:20 EST 1998 # Robin Barker <rmb1@cise.npl.co.uk> # -strict, -w cleanups |