diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-26 07:14:43 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-26 07:14:43 +0000 |
commit | f59882ed6d4ea35472f7e0c84880524f71a5ff93 (patch) | |
tree | fd730326fa561a1de8a3550c4a1eb54bb219bfa8 /lib/CPAN.pm | |
parent | db3c82715f3e5554ab07ece08f574ddcc983cc0e (diff) | |
parent | a6d7165678aed89f828954d0fcb2e714844ad7d6 (diff) | |
download | perl-f59882ed6d4ea35472f7e0c84880524f71a5ff93.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@3760
Diffstat (limited to 'lib/CPAN.pm')
-rw-r--r-- | lib/CPAN.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index 401660ef44..432e72da05 100644 --- a/lib/CPAN.pm +++ b/lib/CPAN.pm @@ -19,7 +19,6 @@ use Config (); use Cwd (); use DirHandle; use Exporter (); -use Errno (); use ExtUtils::MakeMaker (); # $SelfLoader::DEBUG=1; use File::Basename (); use File::Copy (); @@ -576,7 +575,7 @@ Please make sure the directory exists and is writable. } my $fh; unless ($fh = FileHandle->new(">$lockfile")) { - if ($!{EACCES} || $! =~ /Permission/) { + if ($! =~ /Permission/ || $!{EACCES}) { my $incc = $INC{'CPAN/Config.pm'}; my $myincc = MM->catfile($ENV{HOME},'.cpan','CPAN','MyConfig.pm'); $CPAN::Frontend->myprint(qq{ |