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 | 42fbc0de5035935daca94820b4c50a1021d7d26b (patch) | |
| tree | da563fbefd0f838f68842f74f7b450d9d1c7fa41 /utils/perldoc.PL | |
| parent | 9abf929d96d6bb301509a716cd7a15c509b26cb2 (diff) | |
| download | perl-42fbc0de5035935daca94820b4c50a1021d7d26b.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 |