diff options
| author | Ben Bimber <bbimber@gmail.com> | 2010-03-10 21:27:13 -0600 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 2010-03-10 21:27:13 -0600 |
| commit | 048c6a3f2c3a59f04fe2f8a81f52783489484720 (patch) | |
| tree | e23bb4a40a32a5273c497f15946d89bb5a2748b5 | |
| parent | fca945224a9bdd7853b1c7b528f1a506426b32de (diff) | |
| download | perl-libnet-048c6a3f2c3a59f04fe2f8a81f52783489484720.tar.gz | |
Allow finding _netrc on machines that do not support .netrc
| -rw-r--r-- | Net/Netrc.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/Net/Netrc.pm b/Net/Netrc.pm index 28c826b..c29be79 100644 --- a/Net/Netrc.pm +++ b/Net/Netrc.pm @@ -11,7 +11,7 @@ use strict; use FileHandle; use vars qw($VERSION); -$VERSION = "2.12"; +$VERSION = "2.13"; my %netrc = (); @@ -30,7 +30,15 @@ sub _readrc { # Some OS's don't have `getpwuid', so we default to $ENV{HOME} $home = eval { (getpwuid($>))[7] } || $ENV{HOME}; $home ||= $ENV{HOMEDRIVE} . ($ENV{HOMEPATH} || '') if defined $ENV{HOMEDRIVE}; - $file = $home . "/.netrc"; + if (-e $home . "/.netrc") { + $file = $home . "/.netrc"; + } + elsif (-e $home . "/_netrc") { + $file = $home . "/_netrc"; + } + else { + return; + } } my ($login, $pass, $acct) = (undef, undef, undef); |