diff options
| -rw-r--r-- | emacs/cperl-mode.el | 2 | ||||
| -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 | ||||
| -rw-r--r-- | lib/Net/FTP.pm | 2 | ||||
| -rw-r--r-- | lib/Net/NNTP.pm | 4 | ||||
| -rw-r--r-- | lib/Net/Ping.pm | 2 | ||||
| -rw-r--r-- | lib/Pod/Perldoc.pm | 2 | ||||
| -rw-r--r-- | lib/Tie/File/t/05_size.t | 2 | ||||
| -rw-r--r-- | lib/charnames.pm | 2 | ||||
| -rw-r--r-- | lib/ftp.pl | 4 | ||||
| -rw-r--r-- | lib/utf8.t | 2 | ||||
| -rw-r--r-- | pad.c | 8 | ||||
| -rw-r--r-- | pod/perlfunc.pod | 6 | ||||
| -rw-r--r-- | pod/perlintern.pod | 8 | ||||
| -rw-r--r-- | pod/perlthrtut.pod | 2 | ||||
| -rw-r--r-- | pod/pod2latex.PL | 2 | ||||
| -rw-r--r-- | regcomp.c | 2 | ||||
| -rwxr-xr-x | t/op/sprintf.t | 2 | ||||
| -rw-r--r-- | utils/libnetcfg.PL | 4 | ||||
| -rw-r--r-- | vms/vms.c | 4 | ||||
| -rw-r--r-- | win32/vmem.h | 2 |
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) = @$_; @@ -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 @@ -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. @@ -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; |