diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm b/Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm index c05405e7ef6..0778e8adbcc 100644 --- a/Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm +++ b/Master/tlpkg/tlperl/lib/CPAN/FTP/netrc.pm @@ -1,13 +1,12 @@ package CPAN::FTP::netrc; use strict; -$CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.00"; +$CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.01"; # package CPAN::FTP::netrc; sub new { my($class) = @_; - my $home = CPAN::HandleConfig::home(); - my $file = File::Spec->catfile($home,".netrc"); + my $file = File::Spec->catfile($ENV{HOME},".netrc"); my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) |