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

27 files changed, 40 insertions, 42 deletions

diff --git a/emacs/cperl-mode.el b/emacs/cperl-mode.el
index 8abdb0ea3a..7ed963daf4 100644
--- a/emacs/cperl-mode.el
+++ b/emacs/cperl-mode.el
@@ -3703,7 +3703,7 @@ and closing parentheses and brackets.."
 		       (if (eq (preceding-char) ?\))
 			   (forward-sexp -1))
 		       ;; In the case it starts a subroutine, indent with
-		       ;; respect to `sub', not with respect to the the
+		       ;; respect to `sub', not with respect to the
 		       ;; first thing on the line, say in the case of
 		       ;; anonymous sub in a hash.
 		       ;;
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 651304edc2..9954512ba5 100644
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -779,7 +779,7 @@ default, of course.
 
 =item B<-terse>
 
-Use formatting conventions that emulate the ouput of B<B::Terse>. The
+Use formatting conventions that emulate the output of B<B::Terse>. The
 basic mode is almost indistinguishable from the real B<B::Terse>, and the
 exec mode looks very similar, but is in a more logical order and lacks
 curly brackets. B<B::Terse> doesn't have a tree mode, so the tree mode
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm
index fd5b38592c..2e5d85e818 100644
--- a/ext/DB_File/DB_File.pm
+++ b/ext/DB_File/DB_File.pm
@@ -1454,7 +1454,7 @@ Returns the number of elements in the array.
 
 =item B<$X-E<gt>splice(offset, length, elements);>
 
-Returns a splice of the the array.
+Returns a splice of the array.
 
 =back
 
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
index 6c5d03b4d9..aa5d135147 100644
--- a/ext/DB_File/DB_File.xs
+++ b/ext/DB_File/DB_File.xs
@@ -817,7 +817,7 @@ INFO * recno ;
     printf ("  cachesize = %d\n", recno->db_RE_cachesize) ;
     printf ("  psize     = %d\n", recno->db_RE_psize) ;
     printf ("  lorder    = %d\n", recno->db_RE_lorder) ;
-    printf ("  reclen    = %ul\n", (unsigned long)recno->db_RE_reclen) ;
+    printf ("  reclen    = %lu\n", (unsigned long)recno->db_RE_reclen) ;
     printf ("  bval      = %d 0x%x\n", recno->db_RE_bval, recno->db_RE_bval) ;
     printf ("  bfname    = %d [%s]\n", recno->db_RE_bfname, recno->db_RE_bfname) ;
 }
diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index 77ef45b9d4..afffae31b7 100644
--- a/ext/Devel/PPPort/PPPort.pm
+++ b/ext/Devel/PPPort/PPPort.pm
@@ -3,7 +3,7 @@ package Devel::PPPort;
 
 =head1 NAME
 
-Perl/Pollution/Portability
+Devel::PPPort - Perl/Pollution/Portability
 
 =head1 SYNOPSIS
 
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index 8d36e8ee34..7f434d9487 100644
--- a/ext/IO/lib/IO/Socket.pm
+++ b/ext/IO/lib/IO/Socket.pm
@@ -219,7 +219,7 @@ sub send {
 	? send($sock, $_[1], $flags)
 	: send($sock, $_[1], $flags, $peer);
 
-    # remember who we send to, if it was sucessful
+    # remember who we send to, if it was successful
     ${*$sock}{'io_socket_peername'} = $peer
 	if(@_ == 4 && defined $r);
 
@@ -421,7 +421,7 @@ C<use> declaration will fail at compile time.
 
 =item connected
 
-If the socket is in a connected state the the peer address is returned.
+If the socket is in a connected state the peer address is returned.
 If the socket is not in a connected state then undef will be returned.
 
 =item protocol
diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs
index a714a3d6d2..5f7b0dff5e 100644
--- a/ext/PerlIO/encoding/encoding.xs
+++ b/ext/PerlIO/encoding/encoding.xs
@@ -32,7 +32,7 @@
    "SUPER::flush.
 
    Note that "flush" is _also_ called for read mode - we still do the
-   (back)-translate so that the the base class's "flush" sees the
+   (back)-translate so that the base class's "flush" sees the
    correct number of encoded chars for positioning the seek
    pointer. (This double translation is the worst performance issue -
    particularly with all-perl encode engine.)
diff --git a/ext/PerlIO/via/via.pm b/ext/PerlIO/via/via.pm
index 39a5fab860..8cf854b9af 100644
--- a/ext/PerlIO/via/via.pm
+++ b/ext/PerlIO/via/via.pm
@@ -115,7 +115,7 @@ equal to $len).  Optional.  Default is to use FILL instead.
 
 =item $obj->WRITE($buffer,$fh)
 
-Returns the number of octets from buffer that have been sucessfully written.
+Returns the number of octets from buffer that have been successfully written.
 
 =item $obj->FILL($fh)
 
@@ -141,7 +141,7 @@ Optional.  Default to be determined.
 
 =item $obj->UNREAD($buffer,$fh)
 
-Returns the number of octets from buffer that have been sucessfully
+Returns the number of octets from buffer that have been successfully
 saved to be returned on future FILL/READ calls.  Optional.  Default is
 to push data into a temporary layer above this one.
 
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index fe6ee11a45..f59316aef4 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -2269,7 +2269,7 @@ static int store_hash(stcxt_t *cxt, HV *hv)
 
 		/*
 		 * Storing in "random" order (in the order the keys are stored
-		 * within the the hash).  This is the default and will be faster!
+		 * within the hash).  This is the default and will be faster!
 		 */
   
 		for (i = 0; i < len; i++) {
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) = @$_;
diff --git a/pad.c b/pad.c
index 8afa81e56d..e63daa073e 100644
--- a/pad.c
+++ b/pad.c
@@ -46,9 +46,9 @@ The 0'th slot of a frame AV is an AV which is @_.
 other entries are storage for variables and op targets.
 
 During compilation:
-C<PL_comppad_name> is set the the the names AV.
-C<PL_comppad> is set the the frame AV for the frame CvDEPTH == 1.
-C<PL_curpad> is set the body of the frame AV (i.e. AvARRAY(PL_comppad)).
+C<PL_comppad_name> is set to the names AV.
+C<PL_comppad> is set to the frame AV for the frame CvDEPTH == 1.
+C<PL_curpad> is set to the body of the frame AV (i.e. AvARRAY(PL_comppad)).
 
 During execution, C<PL_comppad> and C<PL_curpad> refer to the live
 frame of the currently executing sub.
@@ -78,7 +78,7 @@ a REFCNT'ed references to a lexical from "outside". In this case,
 the name SV does not have a cop_seq range, since it is in scope
 throughout.
 
-If the 'name' is '&' the the corresponding entry in frame AV
+If the 'name' is '&' the corresponding entry in frame AV
 is a CV representing a possible closure.
 (SvFAKE and name of '&' is not a meaningful combination currently but could
 become so if C<my sub foo {}> is implemented.)
diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 7fed9c0239..a6f5771878 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -849,7 +849,7 @@ extirpated as a potential munition).  This can prove useful for checking
 the password file for lousy passwords, amongst other things.  Only the
 guys wearing white hats should do this.
 
-Note that C<crypt> is intended to be a one-way function, much like
+Note that L<crypt|/crypt> is intended to be a one-way function, much like
 breaking eggs to make an omelette.  There is no (known) corresponding
 decrypt function (in other words, the crypt() is a one-way hash
 function).  As a result, this function isn't all that useful for
@@ -893,7 +893,7 @@ their own password:
 Of course, typing in your own password to whoever asks you
 for it is unwise.
 
-The L<crypt> function is unsuitable for encrypting large quantities
+The C<crypt> function is unsuitable for encrypting large quantities
 of data, not least of all because you can't get the information
 back.  Look at the F<by-module/Crypt> and F<by-module/PGP> directories
 on your favorite CPAN mirror for a slew of potentially useful
@@ -2715,7 +2715,7 @@ C<redo> work.
 
 =item no Module
 
-See the L</use> function, which C<no> is the opposite of.
+See the C<use> function, which C<no> is the opposite of.
 
 =item oct EXPR
 
diff --git a/pod/perlintern.pod b/pod/perlintern.pod
index d6cd33340e..c4bb1d5a01 100644
--- a/pod/perlintern.pod
+++ b/pod/perlintern.pod
@@ -447,9 +447,9 @@ The 0'th slot of a frame AV is an AV which is @_.
 other entries are storage for variables and op targets.
 
 During compilation:
-C<PL_comppad_name> is set the the the names AV.
-C<PL_comppad> is set the the frame AV for the frame CvDEPTH == 1.
-C<PL_curpad> is set the body of the frame AV (i.e. AvARRAY(PL_comppad)).
+C<PL_comppad_name> is set to the names AV.
+C<PL_comppad> is set to the frame AV for the frame CvDEPTH == 1.
+C<PL_curpad> is set to the body of the frame AV (i.e. AvARRAY(PL_comppad)).
 
 During execution, C<PL_comppad> and C<PL_curpad> refer to the live
 frame of the currently executing sub.
@@ -479,7 +479,7 @@ a REFCNT'ed references to a lexical from "outside". In this case,
 the name SV does not have a cop_seq range, since it is in scope
 throughout.
 
-If the 'name' is '&' the the corresponding entry in frame AV
+If the 'name' is '&' the corresponding entry in frame AV
 is a CV representing a possible closure.
 (SvFAKE and name of '&' is not a meaningful combination currently but could
 become so if C<my sub foo {}> is implemented.)
diff --git a/pod/perlthrtut.pod b/pod/perlthrtut.pod
index 575ec27c52..27ad46e264 100644
--- a/pod/perlthrtut.pod
+++ b/pod/perlthrtut.pod
@@ -542,7 +542,7 @@ techniques such as queues, which remove some of the hard work involved.
 =head2 Controlling access: lock()
 
 The lock() function takes a shared variable and puts a lock on it.  
-No other thread may lock the variable until the the variable is unlocked
+No other thread may lock the variable until the variable is unlocked
 by the thread holding the lock. Unlocking happens automatically
 when the locking thread exits the outermost block that contains
 C<lock()> function.  Using lock() is straightforward: this example has
diff --git a/pod/pod2latex.PL b/pod/pod2latex.PL
index 002f06dca1..be8da92a23 100644
--- a/pod/pod2latex.PL
+++ b/pod/pod2latex.PL
@@ -260,7 +260,7 @@ combined output file.
 
 =head1 OPTIONS AND ARGUMENTS
 
-This section describes the supported command line options. Minium
+This section describes the supported command line options. Minimum
 matching is supported.
 
 =over 4
diff --git a/regcomp.c b/regcomp.c
index 2bdf0c63c6..2cd31ea173 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4714,7 +4714,7 @@ Perl_regprop(pTHX_ SV *sv, regnode *o)
     else if (k == ANYOF) {
 	int i, rangestart = -1;
 	U8 flags = ANYOF_FLAGS(o);
-	const char * const anyofs[] = {	/* Should be syncronized with
+	const char * const anyofs[] = {	/* Should be synchronized with
 					 * ANYOF_ #xdefines in regcomp.h */
 	    "\\w",
 	    "\\W",
diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 5a046eccac..f48b6d3712 100755
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -104,7 +104,7 @@ for ($i = 1; @tests; $i++) {
     }
 }
 
-# In each of the the following lines, there are three required fields:
+# In each of the following lines, there are three required fields:
 # printf template, data to be formatted (as a Perl expression), and
 # expected result of formatting.  An optional fourth field can contain
 # a comment.  Each field is delimited by a starting '>' and a
diff --git a/utils/libnetcfg.PL b/utils/libnetcfg.PL
index 4f71114cd6..1f47c24a17 100644
--- a/utils/libnetcfg.PL
+++ b/utils/libnetcfg.PL
@@ -368,9 +368,9 @@ Without options, the old configuration is shown.
 The default name of the old configuration file is by default
 "libnet.cfg", unless otherwise specified using the -i option,
 C<-i oldfile>, and it is searched first from the current directory,
-and the from your module path.
+and then from your module path.
 
-The default name of new configuration file is "libnet.cfg", and by
+The default name of the new configuration file is "libnet.cfg", and by
 default it is written to the current directory, unless otherwise
 specified using the -o option.
 
diff --git a/vms/vms.c b/vms/vms.c
index e271354b1a..aa9421d6bf 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -5002,7 +5002,7 @@ Perl_seekdir(pTHX_ DIR *dd, long count)
  *
  * vms_do_aexec() and vms_do_exec() are called in response to the
  * perl 'exec' function.  If this follows a vfork call, then they
- * call out the the regular perl routines in doio.c which do an
+ * call out the regular perl routines in doio.c which do an
  * execvp (for those who really want to try this under VMS).
  * Otherwise, they do exactly what the perl docs say exec should
  * do - terminate the current script and invoke a new command
@@ -5015,7 +5015,7 @@ Perl_seekdir(pTHX_ DIR *dd, long count)
  * in 'VMSish fashion' (i.e. not after a call to vfork) The args
  * are concatenated to form a DCL command string.  If the first arg
  * begins with '$' (i.e. the perl script had "\$ Type" or some such),
- * the the command string is handed off to DCL directly.  Otherwise,
+ * the command string is handed off to DCL directly.  Otherwise,
  * the first token of the command is taken as the filespec of an image
  * to run.  The filespec is expanded using a default type of '.EXE' and
  * the process defaults for device, directory, etc., and if found, the resultant
diff --git a/win32/vmem.h b/win32/vmem.h
index 712a76edad..31aa07e3a4 100644
--- a/win32/vmem.h
+++ b/win32/vmem.h
@@ -1034,7 +1034,7 @@ int VMem::HeapAdd(void* p, size_t size
 	    if(ptr == m_heaps[index].base + (int)m_heaps[index].len) {
 		/*
 		 * The new block is contiguous with a previously allocated heap area.  Add its
-		 * length to that of the previous heap.  Merge it with the the dummy end-of-heap
+		 * length to that of the previous heap.  Merge it with the dummy end-of-heap
 		 * area marker of the previous heap.
 		 */
 		m_heaps[index].len += size;