From: Steve Hay <SteveHay@planit.com>
Date: Tue, 29 May 2007 07:25:22 +0000 (+0000)
Subject: Silence the warning "Can't locate auto/POSIX/autosplit.ix in @INC"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5145b83ccb40455ee1421b25f5971eb7e2a87afc;p=p5sagit%2Fp5-mst-13.2.git

Silence the warning "Can't locate auto/POSIX/autosplit.ix in @INC"
when building the POSIX extension

p4raw-id: //depot/perl@31298
---

diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm
index 2be8535..41f1ca0 100644
--- a/lib/ExtUtils/Install.pm
+++ b/lib/ExtUtils/Install.pm
@@ -3,7 +3,7 @@ use 5.00503;
 use strict;
 
 use vars qw(@ISA @EXPORT $VERSION $MUST_REBOOT %Config);
-$VERSION = '1.41';
+$VERSION = '1.41_01';
 $VERSION = eval $VERSION;
 
 use AutoSplit;
@@ -395,7 +395,7 @@ Abstract a -w check that tries to use POSIX::access() if possible.
     sub _have_write_access {
         my $dir=shift;
         if (!defined $has_posix) {
-            $has_posix=eval "require POSIX; 1" || 0;
+            $has_posix=eval "local $^W; require POSIX; 1" || 0;
         }
         if ($has_posix) {
             return POSIX::access($dir, POSIX::W_OK());