diff options
| author | Steve Hay <SteveHay@planit.com> | 2008-03-17 14:36:54 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-03-25 16:23:46 +0000 |
| commit | 038ae9a45711aea142f721498a4a61353b40c4e4 (patch) | |
| tree | 9422e7deed8c530efa3204c14d48bc43bb13b38b /lib/ExtUtils/Install.pm | |
| parent | c05290799fe650da776e2abcfd6f8da9ec7b5d50 (diff) | |
| download | perl-038ae9a45711aea142f721498a4a61353b40c4e4.tar.gz | |
RE: [PATCH revised] Fix ExtUtils::Install under Cygwin
From: "Steve Hay" <SteveHay@planit.com>
Message-ID: <1B32FF956ABF414C9BCE5E487A1497E70176BD61@ukmail02.planit.group>
"OK, so how about the attached. This fixes up -w for all compilers so
that it is symmetrical with chmod(), and adds a note to perltodo on
fixing POSIX::access() and chdir()."
The whole long thread started here:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2008-03/msg00056.html
p4raw-id: //depot/perl@33566
Diffstat (limited to 'lib/ExtUtils/Install.pm')
| -rw-r--r-- | lib/ExtUtils/Install.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm index 1b144b5c68..4d033aae72 100644 --- a/lib/ExtUtils/Install.pm +++ b/lib/ExtUtils/Install.pm @@ -38,11 +38,11 @@ ExtUtils::Install - install files from here to there =head1 VERSION -1.50 +1.50_01 =cut -$VERSION = '1.50'; +$VERSION = '1.50_01'; $VERSION = eval $VERSION; =pod @@ -358,7 +358,8 @@ Abstract a -w check that tries to use POSIX::access() if possible. sub _have_write_access { my $dir=shift; unless (defined $has_posix) { - $has_posix= (!$Is_cygwin && eval 'local $^W; require POSIX; 1') || 0; + $has_posix= (!$Is_cygwin && !$Is_Win32 + && eval 'local $^W; require POSIX; 1') || 0; } if ($has_posix) { return POSIX::access($dir, POSIX::W_OK()); |