X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCPAN.pm;h=432e72da05f6a93e798e304367d96dddb9a621dc;hb=9bea678f36dc293400ada67aa122ef456a9dcf74;hp=3f3b980c1178a188302fa23ded80fa8ecfd37624;hpb=36263cb347dc0d66c6ed49be3e8c8a14c5d21ffb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 3f3b980..432e72d 100644
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -575,7 +575,7 @@ Please make sure the directory exists and is writable.
     }
     my $fh;
     unless ($fh = FileHandle->new(">$lockfile")) {
-	if ($! =~ /Permission/) {
+	if ($! =~ /Permission/ || $!{EACCES}) {
 	    my $incc = $INC{'CPAN/Config.pm'};
 	    my $myincc = MM->catfile($ENV{HOME},'.cpan','CPAN','MyConfig.pm');
 	    $CPAN::Frontend->myprint(qq{