about summary refs log tree commit
diff options
context:
space:
mode:
authorSteve Hay <steve.m.hay@googlemail.com>2013-08-12 21:44:53 +0100
committerSteve Hay <steve.m.hay@googlemail.com>2013-08-12 21:51:20 +0100
commit13babdb3266132d7744971c4902b303baef5ea14 (patch)
treed33e2cb4e3cb11f998b037794b8a52925c7c369f
parentc203228eca8db536581bfeded5c886291d00d7e2 (diff)
parentb07059b0df5feff2321b5ddaa6ee7adf50d61f32 (diff)
downloadperl-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.pm2
-rw-r--r--Net/FTP.pm2
-rw-r--r--Net/FTP/dataconn.pm2
-rw-r--r--Net/NNTP.pm2
-rw-r--r--Net/Netrc.pm4
-rw-r--r--Net/POP3.pm4
-rw-r--r--Net/SMTP.pm6
-rw-r--r--Net/libnetFAQ.pod2
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
diff --git a/Net/FTP.pm b/Net/FTP.pm
index 1c0deb2..db817cc 100644
--- a/Net/FTP.pm
+++ b/Net/FTP.pm
@@ -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 ?