develooper Front page | perl.perl5.porters | Postings from March 2003

[PATCH] typos and other minor things

Thread Next
From:
Todd C. Miller
Date:
March 10, 2003 20:01
Subject:
[PATCH] typos and other minor things
Message ID:
200303110400.h2B40tEQ018838@xerxes.courtesan.com
This patch consists of the following, taken from OpenBSD:
 o typo fixes
 o "the the"
 o a couple of invalid NAME sections in pod file (this messes up
   makewhatis, rcs IDs should go elsewhere in the doc)
 o in perlfunc.pod the use of L<> looks bad when converted to man

 - todd

--- ./ext/B/B/Concise.pm.DIST	Tue Feb 18 08:30:37 2003
+++ ./ext/B/B/Concise.pm	Mon Mar 10 20:33:49 2003
@@ -780,7 +780,7 @@
 
 =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
--- ./ext/DB_File/DB_File.pm.DIST	Wed Feb 26 12:21:07 2003
+++ ./ext/DB_File/DB_File.pm	Mon Mar 10 20:33:49 2003
@@ -1454,7 +1454,7 @@
 
 =item B<$X-E<gt>splice(offset, length, elements);>
 
-Returns a splice of the the array.
+Returns a splice of the array.
 
 =back
 
--- ./ext/DB_File/DB_File.xs.DIST	Thu Jan 23 07:20:48 2003
+++ ./ext/DB_File/DB_File.xs	Mon Mar 10 20:33:49 2003
@@ -817,7 +817,7 @@
     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) ;
 }
--- ./ext/Devel/PPPort/PPPort.pm.DIST	Fri Mar  7 14:30:30 2003
+++ ./ext/Devel/PPPort/PPPort.pm	Mon Mar 10 20:33:49 2003
@@ -3,7 +3,7 @@
 
 =head1 NAME
 
-Perl/Pollution/Portability
+Devel::PPPort - Perl/Pollution/Portability
 
 =head1 SYNOPSIS
 
--- ./ext/IO/lib/IO/Socket.pm.DIST	Thu Jan 23 07:22:04 2003
+++ ./ext/IO/lib/IO/Socket.pm	Mon Mar 10 20:33:49 2003
@@ -219,7 +219,7 @@
 	? 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 @@
 
 =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
--- ./ext/PerlIO/encoding/encoding.xs.DIST	Thu Jan 23 07:22:07 2003
+++ ./ext/PerlIO/encoding/encoding.xs	Mon Mar 10 20:38:16 2003
@@ -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.)
--- ./ext/PerlIO/via/via.pm.DIST	Thu Jan 23 07:22:07 2003
+++ ./ext/PerlIO/via/via.pm	Mon Mar 10 20:33:49 2003
@@ -115,7 +115,7 @@
 
 =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 @@
 
 =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.
 
--- ./ext/Storable/Storable.xs.DIST	Tue Feb 18 08:16:48 2003
+++ ./ext/Storable/Storable.xs	Mon Mar 10 20:38:53 2003
@@ -2269,7 +2269,7 @@
 
 		/*
 		 * 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++) {
--- ./emacs/cperl-mode.el.DIST	Thu Jan 23 07:20:41 2003
+++ ./emacs/cperl-mode.el	Mon Mar 10 20:39:33 2003
@@ -3703,7 +3703,7 @@
 		       (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.
 		       ;;
--- ./lib/Net/FTP.pm.DIST	Mon Mar  3 23:46:48 2003
+++ ./lib/Net/FTP.pm	Mon Mar 10 20:33:49 2003
@@ -628,7 +628,7 @@
      $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)
--- ./lib/Net/NNTP.pm.DIST	Thu Jan 23 07:22:43 2003
+++ ./lib/Net/NNTP.pm	Mon Mar 10 20:33:49 2003
@@ -748,8 +748,8 @@
 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.
 
--- ./lib/Net/Ping.pm.DIST	Sat Feb  8 11:45:51 2003
+++ ./lib/Net/Ping.pm	Mon Mar 10 20:35:18 2003
@@ -1195,8 +1195,6 @@
 
 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;
--- ./lib/Pod/Perldoc.pm.DIST	Thu Jan 23 07:22:47 2003
+++ ./lib/Pod/Perldoc.pm	Mon Mar 10 20:40:00 2003
@@ -481,7 +481,7 @@
       } 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";
--- ./lib/Tie/File/t/05_size.t.DIST	Thu Jan 23 07:22:54 2003
+++ ./lib/Tie/File/t/05_size.t	Mon Mar 10 20:40:16 2003
@@ -86,7 +86,7 @@
 # 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 {
--- ./lib/ftp.pl.DIST	Thu Jan 23 07:22:58 2003
+++ ./lib/ftp.pl	Mon Mar 10 20:33:49 2003
@@ -328,10 +328,10 @@
 
 # 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 ) = @_;
--- ./lib/utf8.t.DIST	Thu Feb  6 03:40:07 2003
+++ ./lib/utf8.t	Mon Mar 10 20:33:49 2003
@@ -189,7 +189,7 @@
     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) = @$_;
--- ./lib/charnames.pm.DIST	Thu Jan 23 07:22:58 2003
+++ ./lib/charnames.pm	Mon Mar 10 20:41:00 2003
@@ -107,7 +107,7 @@
     ## @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]);
     }
--- ./pod/perlfunc.pod.DIST	Fri Feb 28 13:57:54 2003
+++ ./pod/perlfunc.pod	Mon Mar 10 20:33:54 2003
@@ -895,7 +895,7 @@
 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
@@ -2720,7 +2720,7 @@
 
 =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
 
--- ./pod/perlintern.pod.DIST	Sun Mar  9 14:52:04 2003
+++ ./pod/perlintern.pod	Mon Mar 10 20:54:19 2003
@@ -447,9 +447,9 @@
 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 @@
 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.)
--- ./pod/perlthrtut.pod.DIST	Thu Jan 23 07:24:05 2003
+++ ./pod/perlthrtut.pod	Mon Mar 10 20:33:54 2003
@@ -542,7 +542,7 @@
 =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
--- ./pod/pod2latex.PL.DIST	Thu Jan 23 07:24:11 2003
+++ ./pod/pod2latex.PL	Mon Mar 10 20:33:54 2003
@@ -260,7 +260,7 @@
 
 =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
--- ./t/op/sprintf.t.DIST	Sun Mar  9 08:04:24 2003
+++ ./t/op/sprintf.t	Mon Mar 10 20:47:33 2003
@@ -104,7 +104,7 @@
     }
 }
 
-# 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
--- ./utils/libnetcfg.PL.DIST	Thu Jan 23 07:24:35 2003
+++ ./utils/libnetcfg.PL	Mon Mar 10 20:37:00 2003
@@ -368,9 +368,9 @@
 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.
 
--- ./vms/vms.c.DIST	Sun Mar  9 08:04:35 2003
+++ ./vms/vms.c	Mon Mar 10 20:48:19 2003
@@ -5038,7 +5038,7 @@
  *
  * 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
@@ -5051,7 +5051,7 @@
  * 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
--- ./win32/vmem.h.DIST	Thu Jan 23 07:24:49 2003
+++ ./win32/vmem.h	Mon Mar 10 20:48:34 2003
@@ -1034,7 +1034,7 @@
 	    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;
--- ./regcomp.c.DIST	Sun Mar  2 10:19:21 2003
+++ ./regcomp.c	Mon Mar 10 20:33:49 2003
@@ -4711,7 +4711,7 @@
     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",
--- ./pad.c.DIST	Sun Mar  2 10:17:23 2003
+++ ./pad.c	Mon Mar 10 20:55:45 2003
@@ -46,9 +46,9 @@
 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 @@
 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.)

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About