diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-10 06:33:15 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-10 06:33:15 +0000 |
| commit | 7ec2cea42ff48a380e66445f3c1f56b9ff25c203 (patch) | |
| tree | da563fbefd0f838f68842f74f7b450d9d1c7fa41 /utils/perldoc.PL | |
| parent | 90564d9841a592d4954f5fb3ef7a8ffd42cd7c65 (diff) | |
| download | perl-7ec2cea42ff48a380e66445f3c1f56b9ff25c203.tar.gz | |
install pods to 'pods' rather than 'pod' on cygwin (modified
a patch suggested by cwilson@cc865179-c.chmbl1.ga.home.com)
p4raw-id: //depot/perl@4333
Diffstat (limited to 'utils/perldoc.PL')
| -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 |