typos and other minor things

From: "Todd C. Miller" <Todd.Miller@courtesan.com>
Message-Id: <200303110400.h2B40tEQ018838@xerxes.courtesan.com>

p4raw-id: //depot/perl@18904

8 files changed, 9 insertions, 11 deletions

diff --git a/lib/Net/FTP.pm b/lib/Net/FTP.pm
index 4e09b59d02..054ce0fb29 100644
--- a/lib/Net/FTP.pm
+++ b/lib/Net/FTP.pm
@@ -628,7 +628,7 @@ sub mkdir
      $path = $ftp->_extract_path($path);
     }
 
-   # If the creation of the last element was not sucessful, see if we
+   # If the creation of the last element was not successful, see if we
    # can cd to it, if so then return path
 
    unless($ftp->ok)
diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm
index 521ccf1e16..0076405c26 100644
--- a/lib/Net/NNTP.pm
+++ b/lib/Net/NNTP.pm
@@ -748,8 +748,8 @@ Retrieve the header, a blank line, then the body (text) of the
 specified article. 
 
 If C<FH> is specified then it is expected to be a valid filehandle
-and the result will be printed to it, on sucess a true value will be
-returned. If C<FH> is not specified then the return value, on sucess,
+and the result will be printed to it, on success a true value will be
+returned. If C<FH> is not specified then the return value, on success,
 will be a reference to an array containg the article requested, each
 entry in the array will contain one line of the article.
 
diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm
index 3312ea3947..cb42bcca2a 100644
--- a/lib/Net/Ping.pm
+++ b/lib/Net/Ping.pm
@@ -1195,8 +1195,6 @@ __END__
 
 Net::Ping - check a remote host for reachability
 
-$Id: Ping.pm,v 1.69 2003/01/23 17:21:29 rob Exp $
-
 =head1 SYNOPSIS
 
     use Net::Ping;
diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm
index 931c415c1c..1d1f809187 100644
--- a/lib/Pod/Perldoc.pm
+++ b/lib/Pod/Perldoc.pm
@@ -481,7 +481,7 @@ sub find_good_formatter_class {
       } else {
         $^W = 0;
         # The average user just has no reason to be seeing
-        #  $^W-suppressable warnings from the the require!
+        #  $^W-suppressable warnings from the require!
       }
 
       eval "require $c";
diff --git a/lib/Tie/File/t/05_size.t b/lib/Tie/File/t/05_size.t
index 695d379702..44c69f910f 100644
--- a/lib/Tie/File/t/05_size.t
+++ b/lib/Tie/File/t/05_size.t
@@ -86,7 +86,7 @@ print (! defined $r ? "ok $N\n" : "not ok $N \# was <$r>; should be UNDEF\n");
 # 20020326 Well, but happily, this test did fail today.
 
 # In the past, there was a bug in STORESIZE that it didn't correctly
-# remove deleted records from the the cache.  This wasn't detected
+# remove deleted records from the cache.  This wasn't detected
 # because these tests were all done with an empty cache.  populate()
 # will ensure that the cache is fully populated.
 sub populate {
diff --git a/lib/charnames.pm b/lib/charnames.pm
index 7b39cee83c..cd7b08aa97 100644
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -107,7 +107,7 @@ sub charnames
     ## @off will hold the index into the code/name string of the start and
     ## end of the name as we find it.
 
-    ## If :full, look for the the name exactly
+    ## If :full, look for the name exactly
     if ($^H{charnames_full} and $txt =~ /\t\t\Q$name\E$/m) {
       @off = ($-[0], $+[0]);
     }
diff --git a/lib/ftp.pl b/lib/ftp.pl
index 0b9d7321d6..7ef8d76b5c 100644
--- a/lib/ftp.pl
+++ b/lib/ftp.pl
@@ -328,10 +328,10 @@ sub ftp'cwd
 
 # Get a full directory listing:
 # &ftp'dir( remote LIST options )
-# Start a list goin with the given options.
+# Start a list going with the given options.
 # Presuming that the remote deamon uses the ls command to generate the
 # data to send back then you can send it some extra options (eg: -lRa)
-# return 1 if sucessful and 0 on a failure
+# return 1 if successful and 0 on a failure
 sub ftp'dir_open
 {
 	local( $options ) = @_;
diff --git a/lib/utf8.t b/lib/utf8.t
index 6728238fbf..85dfb2cb2e 100644
--- a/lib/utf8.t
+++ b/lib/utf8.t
@@ -189,7 +189,7 @@ BANG
     print
         "# Again! Again! [but this time as eval, and not the explosive one]\n";
     # and now we've safely done them all as separate files, check that the
-    # evals do the same thing. Hopefully doing it later sucessfully decouples
+    # evals do the same thing. Hopefully doing it later successfully decouples
     # the previous tests from anything messy that may go wrong with the evals.
     foreach (@tests) {
         my ($why, $prog, $expect) = @$_;