diff options
author | Todd C. Miller <Todd.Miller@courtesan.com> | 2003-03-10 14:00:55 -0700 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-11 05:33:10 +0000 |
commit | a6d0563455796929d2aae5a18fb57e80a20f87bd (patch) | |
tree | a5da3d0d721e0306e0e455a5f9ae12a0dcc559c4 /ext | |
parent | 38295cca2bcea18247fdba079ba504a69c9fda94 (diff) | |
download | perl-a6d0563455796929d2aae5a18fb57e80a20f87bd.tar.gz |
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
Diffstat (limited to 'ext')
-rw-r--r-- | ext/B/B/Concise.pm | 2 | ||||
-rw-r--r-- | ext/DB_File/DB_File.pm | 2 | ||||
-rw-r--r-- | ext/DB_File/DB_File.xs | 2 | ||||
-rw-r--r-- | ext/Devel/PPPort/PPPort.pm | 2 | ||||
-rw-r--r-- | ext/IO/lib/IO/Socket.pm | 4 | ||||
-rw-r--r-- | ext/PerlIO/encoding/encoding.xs | 2 | ||||
-rw-r--r-- | ext/PerlIO/via/via.pm | 4 | ||||
-rw-r--r-- | ext/Storable/Storable.xs | 2 |
8 files changed, 10 insertions, 10 deletions
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++) { |