diff options
author | David Steinbrunner <dsteinbrunner@pobox.com> | 2013-05-30 07:18:44 -0400 |
---|---|---|
committer | David Steinbrunner <dsteinbrunner@pobox.com> | 2013-05-30 07:18:44 -0400 |
commit | 64c39d9bf2aaa9be637d23dfe53e39e380f62200 (patch) | |
tree | 008753b776b8b62036df8a4608c13697daf1b9a6 | |
parent | 0483edb2c495b524cb7ec4ab8b8f1a324345707a (diff) | |
download | perl-libnet-64c39d9bf2aaa9be637d23dfe53e39e380f62200.tar.gz |
typo fixes
-rw-r--r-- | Net/Netrc.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Net/Netrc.pm b/Net/Netrc.pm index 57e965e..02716fe 100644 --- a/Net/Netrc.pm +++ b/Net/Netrc.pm @@ -27,7 +27,7 @@ sub _readrc { } else { - # Some OS's don't have `getpwuid', so we default to $ENV{HOME} + # 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}; if (-e $home . "/.netrc") { @@ -47,7 +47,7 @@ sub _readrc { $netrc{default} = undef; - # OS/2 and Win32 do not handle stat in a way compatable with this check :-( + # OS/2 and Win32 do not handle stat in a way compatible with this check :-( unless ($^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'MacOS' |