From 5145b83ccb40455ee1421b25f5971eb7e2a87afc Mon Sep 17 00:00:00 2001
From: Steve Hay <SteveHay@planit.com>
Date: Tue, 29 May 2007 07:25:22 +0000
Subject: [PATCH] Silence the warning "Can't locate auto/POSIX/autosplit.ix in
 @INC" when building the POSIX extension

p4raw-id: //depot/perl@31298
---
 lib/ExtUtils/Install.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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());
-- 
2.7.4