diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-04 07:59:44 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-04 07:59:44 +0000 |
commit | 2d7a92375815264badaef23c612657cbd4799f31 (patch) | |
tree | a21bf70b8eb3f8982a62d2acf344771f2d96e952 /utils | |
parent | 25931d335858f0e7767af03260b9bb9ad7a959d5 (diff) | |
download | perl-2d7a92375815264badaef23c612657cbd4799f31.tar.gz |
[win32] Various win32 fixes
- support spawn via system(&P_NOWAIT,...) like OS2
- support wait() and waitpid()
- s/GetCurrentDirectory/GetCwd/, long-named XS to be removed
- support -lfoo properly in ExtUtils::Liblist
- fix outdated info about Win32 support in perlfaq2
- fix win32 bug in perldoc that causes spurious warnings
- regularize global function/variable names yet more
- fix bug in do_aspawn() (it was always invoking shell, instead of
almost never)
- implement and export win32_wait()
- stub version of USE_RTL_THREAD_API
p4raw-id: //depot/win32/perl@391
Diffstat (limited to 'utils')
-rw-r--r-- | utils/perldoc.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 0ac8e0a806..3acb461f98 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -153,7 +153,7 @@ sub minus_f_nocase { # on a case-forgiving file system we can simply use -f $file if ($Is_VMS or $Is_MSWin32 or $^O eq 'os2') { return $file if -f $file and -r _; - warn "Ignored $file: unreadable\n" unless -r _; + warn "Ignored $file: unreadable\n" if -f _; return ''; } local *DIR; |