diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2013-08-12 21:44:53 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-08-12 21:51:20 +0100 |
commit | 13babdb3266132d7744971c4902b303baef5ea14 (patch) | |
tree | d33e2cb4e3cb11f998b037794b8a52925c7c369f | |
parent | c203228eca8db536581bfeded5c886291d00d7e2 (diff) | |
parent | b07059b0df5feff2321b5ddaa6ee7adf50d61f32 (diff) | |
download | perl-libnet-13babdb3266132d7744971c4902b303baef5ea14.tar.gz |
Merge branch 'patch-1' of https://github.com/dsteinbrunner/perl-libnet
This is pull request #6 on gbarr/master from dsteinbrunner/patch-1 typo fixes
-rw-r--r-- | Net/Domain.pm | 2 | ||||
-rw-r--r-- | Net/FTP.pm | 2 | ||||
-rw-r--r-- | Net/FTP/dataconn.pm | 2 | ||||
-rw-r--r-- | Net/NNTP.pm | 2 | ||||
-rw-r--r-- | Net/Netrc.pm | 4 | ||||
-rw-r--r-- | Net/POP3.pm | 4 | ||||
-rw-r--r-- | Net/SMTP.pm | 6 | ||||
-rw-r--r-- | Net/libnetFAQ.pod | 2 |
8 files changed, 12 insertions, 12 deletions
diff --git a/Net/Domain.pm b/Net/Domain.pm index 017cc92..3b7feb4 100644 --- a/Net/Domain.pm +++ b/Net/Domain.pm @@ -234,7 +234,7 @@ sub domainname { # Assumption: If the host name does not contain a period # and the domain name does, then assume that they are correct # this helps to eliminate calls to gethostbyname, and therefore - # eleminate DNS lookups + # eliminate DNS lookups return $fqdn = $host . "." . $domain if (defined $host @@ -25,7 +25,7 @@ $VERSION = '2.77_3'; @ISA = qw(Exporter Net::Cmd IO::Socket::INET); # Someday I will "use constant", when I am not bothered to much about -# compatability with older releases of perl +# compatibility with older releases of perl use vars qw($TELNET_IAC $TELNET_IP $TELNET_DM); ($TELNET_IAC, $TELNET_IP, $TELNET_DM) = (255, 244, 242); diff --git a/Net/FTP/dataconn.pm b/Net/FTP/dataconn.pm index 64eaeec..ef35b63 100644 --- a/Net/FTP/dataconn.pm +++ b/Net/FTP/dataconn.pm @@ -27,7 +27,7 @@ sub abort { return $data->close if ${*$data}{'net_ftp_eof'}; - # for some reason if we continously open RETR connections and not + # for some reason if we continuously open RETR connections and not # read a single byte, then abort them after a while the server will # close our connection, this prevents the unexpected EOF on the # command channel -- GMB diff --git a/Net/NNTP.pm b/Net/NNTP.pm index a9a5592..a2f3def 100644 --- a/Net/NNTP.pm +++ b/Net/NNTP.pm @@ -75,7 +75,7 @@ sub new { # talking to innd not nnrpd if ($obj->reader) { - # If reader suceeds the we need to consider this code to determine postok + # If reader succeeds the we need to consider this code to determine postok $c = $obj->code; } else { diff --git a/Net/Netrc.pm b/Net/Netrc.pm index 7d153a2..3414e66 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' diff --git a/Net/POP3.pm b/Net/POP3.pm index 0d227fd..71b990c 100644 --- a/Net/POP3.pm +++ b/Net/POP3.pm @@ -484,9 +484,9 @@ sub auth { return 0; }; - # We dont support sasl mechanisms that encrypt the socket traffic. + # We don't support sasl mechanisms that encrypt the socket traffic. # todo that we would really need to change the ISA hierarchy - # so we dont inherit from IO::Socket, but instead hold it in an attribute + # so we don't inherit from IO::Socket, but instead hold it in an attribute my @cmd = ("AUTH", $client->mechanism); my $code; diff --git a/Net/SMTP.pm b/Net/SMTP.pm index 67a7418..7980334 100644 --- a/Net/SMTP.pm +++ b/Net/SMTP.pm @@ -147,9 +147,9 @@ sub auth { my $client = $sasl->client_new('smtp', ${*$self}{'net_smtp_host'}, 0); my $str = $client->client_start; - # We dont support sasl mechanisms that encrypt the socket traffic. + # We don't support sasl mechanisms that encrypt the socket traffic. # todo that we would really need to change the ISA hierarchy - # so we dont inherit from IO::Socket, but instead hold it in an attribute + # so we don't inherit from IO::Socket, but instead hold it in an attribute my @cmd = ("AUTH", $client->mechanism); my $code; @@ -860,7 +860,7 @@ to extract the mail address and pass that. If C<ExactAddresses> is passed to the constructor, then addresses should be a valid rfc2821-quoted address, although Net::SMTP will -accept accept the address surrounded by angle brackets. +accept the address surrounded by angle brackets. funny user@domain WRONG "funny user"@domain RIGHT, recommended diff --git a/Net/libnetFAQ.pod b/Net/libnetFAQ.pod index b729f13..78efe8c 100644 --- a/Net/libnetFAQ.pod +++ b/Net/libnetFAQ.pod @@ -187,7 +187,7 @@ Net::FTP uses IO::Socket to open the connection and IO::Socket allows the port number to be specified as part of the hostname. So this problem can be resolved by either passing a Firewall option like C<"hostname:1234"> or by setting the C<ftp_firewall> option in Net::Config to be a string -in in the same form. +in the same form. =head2 Is it possible to change the file permissions of a file on an FTP server ? |