a few typo fixes
authorJeffrey Friedl <jfriedl@regex.info>
Sun, 11 Nov 2001 21:15:18 +0000 (13:15 -0800)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 12 Nov 2001 14:50:44 +0000 (14:50 +0000)
Message-Id: <200111120515.fAC5FIc74795@ventrue.corp.yahoo.com>

Patching README.foo instead of pod/perlfoo.pod,
not patching Math::BigInt (Tels will take care of that),
dropping broken hv.c and sv.h patches, patching libnetcfg.PL
and perldoc.PL instead of libnetcfg and perldoc, patching
ext/Digest/MD5/t/files.t since MD5.pm was changed.

p4raw-id: //depot/perl@12954

109 files changed:
Porting/pumpkin.pod
README.amiga
README.bs2000
README.ce
README.epoc
README.hpux
README.os2
README.vmesa
README.vos
README.win32
XSUB.h
dosish.h
ext/B/B.pm
ext/B/B/Deparse.pm
ext/Data/Dumper/Dumper.pm
ext/Digest/MD5/MD5.pm
ext/Digest/MD5/t/files.t
ext/DynaLoader/dl_dyld.xs
ext/DynaLoader/dl_next.xs
ext/Encode/Encode.pm
ext/IO/lib/IO/Dir.pm
ext/IO/lib/IO/File.pm
ext/IO/lib/IO/Handle.pm
ext/IO/lib/IO/Pipe.pm
ext/IO/lib/IO/Select.pm
ext/IO/lib/IO/Socket.pm
ext/Storable/Storable.xs
ext/XS/Typemap/Typemap.xs
ext/threads/shared/shared.pm
ext/threads/shared/shared.xs
hints/dgux.sh
hv.c
hv.h
lib/Attribute/Handlers.pm
lib/AutoSplit.t
lib/CGI.pm
lib/CGI/Fast.pm
lib/CPAN.pm
lib/Digest.pm
lib/ExtUtils/Constant.pm
lib/ExtUtils/MM_Unix.pm
lib/File/Temp.pm
lib/Getopt/Long.pm
lib/I18N/LangTags/List.pm
lib/Locale/Maketext.pod
lib/Locale/Maketext/TPJ13.pod
lib/Math/Complex.pm
lib/Memoize/Expire.pm
lib/NEXT/README
lib/Net/Config.eg
lib/Net/Config.pm
lib/Net/FTP.pm
lib/Net/NNTP.pm
lib/Net/POP3.pm
lib/Net/README.libnet
lib/Net/SMTP.pm
lib/Net/libnetFAQ.pod
lib/Pod/Checker.pm
lib/Pod/Html.pm
lib/Pod/InputObjects.pm
lib/Pod/LaTeX.pm
lib/Pod/Man.pm
lib/Pod/Parser.pm
lib/Pod/Select.pm
lib/Test/Tutorial.pod
lib/Text/Balanced.pm
lib/Unicode/UCD.pm
lib/bigint.pl
lib/ftp.pl
lib/overload.pm
lib/perl5db.pl
lib/unicore/Unicode.html
nostdio.h
numeric.c
perl.h
perlio.c
pod/perlapi.pod
pod/perlcompile.pod
pod/perldebguts.pod
pod/perldiag.pod
pod/perldsc.pod
pod/perlembed.pod
pod/perlfaq6.pod
pod/perlfilter.pod
pod/perlfunc.pod
pod/perlguts.pod
pod/perlintro.pod
pod/perliol.pod
pod/perlipc.pod
pod/perlmodlib.pod
pod/perlopentut.pod
pod/perlpodspec.pod
pod/perlport.pod
pod/perlre.pod
pod/perlref.pod
pod/perlretut.pod
pod/perltoc.pod
pod/perltodo.pod
pod/perltooc.pod
pod/perltrap.pod
pod/perlunicode.pod
pod/perlxs.pod
sv.c
sv.h
unixish.h
utf8.c
util.c
utils/libnetcfg.PL
utils/perldoc.PL

index 179862d0071cc593c485893362f48a0efa1a327b..ee866ecae38e3d2110c4693c89c580d0411719c6 100644 (file)
@@ -1136,7 +1136,7 @@ but not so much that it posed any serious problems.
 
 =item Metaconfig worked for me
 
-My system at the time was Interactive 2.2, a SVR3.2/386 derivative that
+My system at the time was Interactive 2.2, an SVR3.2/386 derivative that
 also had some POSIX support.  Metaconfig-generated Configure scripts
 worked fine for me on that system.  On the other hand, autoconf-generated
 scripts usually didn't.  (They did come quite close, though, in some
index b26af0a4574abedba716ad120047ba183d871d83..44effb4b3e49f7b6e714ae2365c43d4056410099 100644 (file)
@@ -82,7 +82,7 @@ same way as on any other platform, by
        perl foo arg1 arg2 arg3
 
 If you want to specify perl options C<-my_opts> to the perl itself (as
-opposed to to your program), use
+opposed to your program), use
 
        perl -my_opts foo arg1 arg2 arg3
 
index 1dad5ae7c146f8c1b79e484be2527f4aebc48c07..b14c434ab37373d928fdbff5c4386d5fa687e21c 100644 (file)
@@ -1,5 +1,5 @@
 This document is written in pod format hence there are punctuation
-characters in in odd places.  Do not worry, you've apparently got the
+characters in odd places.  Do not worry, you've apparently got the
 ASCII->EBCDIC translation worked out correctly.  You can read more
 about pod in pod/perlpod.pod or the short summary in the INSTALL file.
 
@@ -151,7 +151,7 @@ C</START-PROG FROM-FILE=*MODULE(PERL,PERL),PROG-MODE=*ANY,RUN-MODE=*ADV>
 First you get the BS2000 commandline prompt ('*').  Here you may enter
 your parameters, e.g. C<-e 'print "Hello World!\\n";'> (note the
 double backslash!) or C<-w> and the name of your Perl script.
-Filenames starting with C</> are searched in in the Posix filesystem,
+Filenames starting with C</> are searched in the Posix filesystem,
 others are searched in the BS2000 filesystem.  You may even use
 wildcards if you put a C<%> in front of your filename (e.g. C<-w
 checkfiles.pl %*.c>).  Read your C/C++ manual for additional
index a216f33da19a6527c87649e74ff428f42c29b90c..e3aa90fac536c1d3ab1d2ecef0276973ff0beab4 100644 (file)
--- a/README.ce
+++ b/README.ce
@@ -41,7 +41,7 @@ Before you start, you need to build celib.dll and w32console.
 See instructions in these packages for building.
 
 In the wince directory, type "nmake -f makefile.ce". This should
-build perl.exe and and perl.dll. For building extension dlls,
+build perl.exe and perl.dll. For building extension dlls,
 type "nmake -f makefile.ce dlls"
 
 When building ext dlls, you get lots of macro redefinition
index 8e12c25ca047facf3e6a6e4e4bd9befc896105db..d7d7bf7adab01e3764865b6353c27ca970e4b452 100644 (file)
@@ -12,7 +12,7 @@ Perl 5 README file for the EPOC operating system.
 
 =head1 INTRODUCTION
 
-EPOC is a OS for palmtops and mobile phones. For more informations look at:
+EPOC is an OS for palmtops and mobile phones. For more informations look at:
 http://www.symbian.com/
 
 This is a port of perl to EPOC. It runs on ER5 machines: Psion 5mx,
@@ -58,7 +58,7 @@ debugger. If you are leaving perl, you get into the system screen. You
 have to switch back manually to ESHELL. When perl is running, you will
 see a task with the name STDOUT in the task list. 
 
-If you have a ER3 machine (i.e. a PSION 5), you may have to supply the
+If you have an ER3 machine (i.e. a PSION 5), you may have to supply the
 full path to the perl executable C:\system\programs\perl.exe.
 
 If you need to set the current directory of perl, please use the
index f75fe8592e3a2be76b7fc8ed11cdd935d5133ba5..c4fd97d1a8531a13404e292ccfb8d64ae52b5140 100644 (file)
@@ -127,7 +127,7 @@ chip type used. (Start browsing at the bottom to prevent confusion ;-)
 An executable compiled on a PA-RISC 2.0 platform will not execute on a
 PA-RISC 1.1 platform, even if they are running the same version of
 HP-UX.  If you are building Perl on a PA-RISC 2.0 platform and want that
-Perl to to also run on a PA-RISC 1.1, the compiler flags +DAportable and
+Perl to also run on a PA-RISC 1.1, the compiler flags +DAportable and
 +DS32 should be used.
 
 It is no longer possible to compile PA-RISC 1.0 executables on either
index 0b40a559a449d0fd98038e52e50aebefcf4b07a2..f2c4a12bdf24b45b8ea68fa6e17815d9b3a26297 100644 (file)
@@ -262,7 +262,7 @@ same way as on any other platform, by
        perl foo.pl arg1 arg2 arg3
 
 If you want to specify perl options C<-my_opts> to the perl itself (as
-opposed to to your program), use
+opposed to your program), use
 
        perl -my_opts foo.pl arg1 arg2 arg3
 
@@ -386,7 +386,7 @@ there is an executable file F<blah.exe> I<anywhere> on C<PATH>.
 
 Note also that executable files on OS/2 can have an arbitrary extension, 
 but F<.exe> will be automatically appended if no dot is present in the name.  
-The workaround as as simple as that:  since F<blah.> and F<blah> denote the 
+The workaround is as simple as that:  since F<blah.> and F<blah> denote the 
 same file, to start an executable residing in file F<n:/bin/blah> (no 
 extension) give an argument C<n:/bin/blah.> (dot appended) to system().
 
@@ -1185,7 +1185,7 @@ C<BEGIN_LIBPATH>.
 
 Returns        C<undef> if it was not called yet, otherwise bit 1 is
 set if on the previous call do_harderror was enabled, bit
-2 is set if if on previous call do_exception was enabled.
+2 is set if on previous call do_exception was enabled.
 
 This function enables/disables error popups associated with 
 hardware errors (Disk not ready etc.) and software exceptions.
@@ -1639,7 +1639,7 @@ of the F<.EXE> file are loaded is decided at compile-time, thus all the
 processes have these sections loaded at same addresses, and no fixup
 of internal links inside the F<.EXE> is needed.
 
-Since DLLs may be loaded at run time, to have the same mechanism for for DLLs
+Since DLLs may be loaded at run time, to have the same mechanism for DLLs
 one needs to have the address range of I<any of the loaded> DLLs in the
 system to be available I<in all the processes> which did not load a particular
 DLL yet.  This is why the DLLs are mapped to the shared memory region.
index 6b69de452ae52b4e0c1305fb3a0b7ba0bfb3461c..7514028dd20734cc3098f459f69b8eb71d203cb7 100644 (file)
@@ -82,7 +82,7 @@ statements in the preprocessor output (.i) file.
 =head2 Testing Anomalies of Perl on VM/ESA
 
 The `make test` step runs a Perl Verification Procedure, usually before
-installation.  As the 5.6.1 kit was was being assembled
+installation.  As the 5.6.1 kit was being assembled
 the following "failures" were known to appear on some machines
 during `make test` (mostly due to ASCII vs. EBCDIC conflicts),
 your results may differ:
index 97ed838f29b609308c9940d88112ab31624c9343..eb01e37169e2cc543263f5e97ac41946202db22d 100644 (file)
@@ -49,7 +49,7 @@ following additional items.
 The VOS Standard C Compiler (or the VOS Standard C
 Cross-Compiler) and the VOS C Runtime.  If you are using
 the generally-available version of POSIX support, you may
-instead use the the VOS GNU C/C++ Compiler.  These are
+instead use the VOS GNU C/C++ Compiler.  These are
 standard Stratus products.
 
 =item 2
index 84fdb188fb9428bf8ed5e8377b763a81fabba26c..cf6f3d3d4ccc937ea61937ce8d40bc0c5d6aefa9 100644 (file)
@@ -84,7 +84,7 @@ case letters, they will be compiled into appropriate .obj-files named
 with all lowercase letters, and every time dmake is invoked
 to bring files up to date, it will try to recompile such files again.
 For example, Tk distribution has a lot of such files, resulting in
-needless recompiles everytime dmake is invoked.  To avoid this, you
+needless recompiles every time dmake is invoked.  To avoid this, you
 may use the script "sync_ext.pl" after a successful build.  It is
 available in the win32 subdirectory of the Perl source distribution.
 
diff --git a/XSUB.h b/XSUB.h
index 5e9c6716c81c29bb215a31695625f5e0e68a8626..e05b36958818d4830470f22b1e730d8868b73ba6 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -130,7 +130,7 @@ handled by C<xsubpp>.
 Return an integer from an XSUB immediately.  Uses C<XST_mIV>.
 
 =for apidoc Am|void|XSRETURN_NV|NV nv
-Return an double from an XSUB immediately.  Uses C<XST_mNV>.
+Return a double from an XSUB immediately.  Uses C<XST_mNV>.
 
 =for apidoc Am|void|XSRETURN_PV|char* str
 Return a copy of a string from an XSUB immediately.  Uses C<XST_mPV>.
index a3d5d13e5c3f46e9a9277d9f7cd69024b6267f15..da2285aaefbf61b6bbee36135930e458a0345bae 100644 (file)
--- a/dosish.h
+++ b/dosish.h
@@ -90,7 +90,7 @@
  *     as the first line of a Perl program designed to be executed directly
  *     by name, instead of the standard Unix #!.  If ALTERNATE_SHEBANG
  *     begins with a character other then #, then Perl will only treat
- *     it as a command line if if finds the string "perl" in the first
+ *     it as a command line if it finds the string "perl" in the first
  *     word; otherwise it's treated as the first line of code in the script.
  *     (IOW, Perl won't hand off to another interpreter via an alternate
  *     shebang sequence that might be legal Perl code.)
index 97dd0c7e4cc51bfd4542d7b43d3851c2d5085507..534182fe4bdddecd5644775f7b4bdea21238d334 100644 (file)
@@ -867,7 +867,7 @@ print_subs() is a B::GV method you have declared.
 Takes any Perl variable and turns it into an object in the
 appropriate B::OP-derived or B::SV-derived class. Apart from functions
 such as C<main_root>, this is the primary way to get an initial
-"handle" on a internal perl data structure which can then be followed
+"handle" on an internal perl data structure which can then be followed
 with the other access methods.
 
 =item ppname(OPNUM)
index b02b9e1b97339733c1567ce405aa4206271eec0d..b84e8ea540bc835c508d2c055a9b30681025a459 100644 (file)
@@ -2957,7 +2957,7 @@ sub pp_entersub {
        }
     } else {
        # glob() invocations can be translated into calls of
-       # CORE::GLOBAL::glob with an second parameter, a number.
+       # CORE::GLOBAL::glob with a second parameter, a number.
        # Reverse this.
        if ($kid eq "CORE::GLOBAL::glob") {
            $kid = "glob";
index 30d6142410fff72d84dd64db9f29f7eab7c420b6..83271cfcec538c8186004e3e8e526e8f8efd48db 100644 (file)
@@ -747,7 +747,7 @@ references are not dumped; instead, their names are inserted wherever they
 are encountered subsequently.  This is useful especially for properly
 dumping subroutine references.
 
-Expects a anonymous hash of name => value pairs.  Same rules apply for names
+Expects an anonymous hash of name => value pairs.  Same rules apply for names
 as in C<new>.  If no argument is supplied, will return the "seen" list of
 name => value pairs, in a list context.  Otherwise, returns the object
 itself.
index 9a109b34e5a66f148b886eeb5ed5232a1143e251..8de2416f9ce33e089f7a00892dcef52667a50cad 100644 (file)
@@ -113,7 +113,7 @@ The constructor returns a new C<Digest::MD5> object which encapsulate
 the state of the MD5 message-digest algorithm.  You can add data to
 the object and finally ask for the digest.
 
-If called as a instance method (i.e. $md5->new) it will just reset the
+If called as an instance method (i.e. $md5->new) it will just reset the
 state the object to the state of a newly created object.  No new
 object is created in this case.
 
index 4ea3fec69f91ce9090b9f72ceca128ac8082815c..bf9595055861ce607cad7cfca687e46e5ac7065a 100644 (file)
@@ -20,7 +20,7 @@ $EXPECT = <<EOT;
 EOT
 } else { # ASCII
 $EXPECT = <<EOT;
-bf8c3c72d071d1c0303fc9e311820708  ext/Digest/MD5/MD5.pm
+665ddc08b12d6b1bf85ac6dc5aae68b3  ext/Digest/MD5/MD5.pm
 95444a9c6ad17e443e4606c6c7fd9e28  ext/Digest/MD5/MD5.xs
 EOT
 }
index 87642ee9b4b7fe4a27f0798546708f8f00ffdde4..752ac364bbe1665b359d56c091412b8eb5b8665d 100644 (file)
@@ -76,7 +76,7 @@ static void TranslateError
     {
        "%s(%d): Object Image Load Failure\n",
        "%s(%d): Object Image Load Success\n",
-       "%s(%d): Not an recognisable object file\n",
+       "%s(%d): Not a recognisable object file\n",
        "%s(%d): No valid architecture\n",
        "%s(%d): Object image has an invalid format\n",
        "%s(%d): Invalid access (permissions?)\n",
index 8fa84404ea8e61463140395424840851e046d0c5..078d92c8e36de97c24954dd878de2f9c4e0d3b00 100644 (file)
@@ -85,7 +85,7 @@ static void TranslateError
     {
        "%s(%d): Object Image Load Failure\n",
        "%s(%d): Object Image Load Success\n",
-       "%s(%d): Not an recognisable object file\n",
+       "%s(%d): Not a recognisable object file\n",
        "%s(%d): No valid architecture\n",
        "%s(%d): Object image has an invalid format\n",
        "%s(%d): Invalid access (permissions?)\n",
index bae93893e717b697954683a9da6d4a057e1f850d..c852bd1d71a4a30d893dadfafe6cf6f1d4ec0c8c 100644 (file)
@@ -597,7 +597,7 @@ the encoding by picking the first in the following sequence:
 
 =item * The name in the IANA registry.
 
-=item * The name used by the the organization that defined it.
+=item * The name used by the organization that defined it.
 
 =back
 
index 0a083ef9aa8a7d1ac4cd40d0c703c8253146ab84..4ac263806698283a0badfffda6908b5fe044763e 100644 (file)
@@ -201,7 +201,7 @@ for details of these functions.
 
 =back
 
-C<IO::Dir> also provides a interface to reading directories via a tied
+C<IO::Dir> also provides an interface to reading directories via a tied
 HASH. The tied HASH extends the interface beyond just the directory
 reading routines by the use of C<lstat>, from the C<File::stat> package,
 C<unlink>, C<rmdir> and C<utime>.
index 240033f3045db0f1a25fdfb5bf2270648256c14e..d5520cbd933f47d2d83bfc9d4ba4ca1452fed997 100644 (file)
@@ -51,7 +51,7 @@ these classes with methods that are specific to file handles.
 
 =item new ( FILENAME [,MODE [,PERMS]] )
 
-Creates a C<IO::File>.  If it receives any parameters, they are passed to
+Creates an C<IO::File>.  If it receives any parameters, they are passed to
 the method C<open>; if the open fails, the object is destroyed.  Otherwise,
 it is returned to the caller.
 
@@ -78,7 +78,7 @@ whitespace or other special characters, and the second parameter is
 the open mode, optionally followed by a file permission value.
 
 If C<IO::File::open> receives a Perl mode string ("E<gt>", "+E<lt>", etc.)
-or a ANSI C fopen() mode string ("w", "r+", etc.), it uses the basic
+or an ANSI C fopen() mode string ("w", "r+", etc.), it uses the basic
 Perl C<open> operator (but protects any special characters).
 
 If C<IO::File::open> is given a numeric mode, it passes that mode
index 6fdba173049c2c24b7c3f3ee85a0d08be96f3cfc..74f9b21edd1d91cb4a6cafee78605f277b16e7f8 100644 (file)
@@ -48,7 +48,7 @@ Creates a new C<IO::Handle> object.
 
 =item new_from_fd ( FD, MODE )
 
-Creates a C<IO::Handle> like C<new> does.
+Creates an C<IO::Handle> like C<new> does.
 It requires two parameters, which are passed to the method C<fdopen>;
 if the fdopen fails, the object is destroyed. Otherwise, it is returned
 to the caller.
@@ -105,7 +105,7 @@ Furthermore, for doing normal I/O you might need these:
 =item $io->fdopen ( FD, MODE )
 
 C<fdopen> is like an ordinary C<open> except that its first parameter
-is not a filename but rather a file handle name, a IO::Handle object,
+is not a filename but rather a file handle name, an IO::Handle object,
 or a file descriptor number.
 
 =item $io->opened
@@ -220,7 +220,7 @@ the taint-clean flag failed. (eg invalid handle)
 
 =head1 NOTE
 
-A C<IO::Handle> object is a reference to a symbol/GLOB reference (see
+An C<IO::Handle> object is a reference to a symbol/GLOB reference (see
 the C<Symbol> package).  Some modules that
 inherit from C<IO::Handle> may want to keep object related variables
 in the hash table part of the GLOB. In an attempt to prevent modules
index a500f292805dbb062cc6febd10bcf36a8bc5c18b..0aaa2d79cbaa4a02a93ae84642a29d331dd6d81e 100644 (file)
@@ -198,7 +198,7 @@ processes.
 
 =item new ( [READER, WRITER] )
 
-Creates a C<IO::Pipe>, which is a reference to a newly created symbol
+Creates an C<IO::Pipe>, which is a reference to a newly created symbol
 (see the C<Symbol> package). C<IO::Pipe::new> optionally takes two
 arguments, which should be objects blessed into C<IO::Handle>, or a
 subclass thereof. These two objects will be used for the system call
index f556b024a8d0c5ae3bb0444eaa7d97a58fc56d57..7e5d8bd8194313c6786e637782e5364058883dc7 100644 (file)
@@ -281,7 +281,7 @@ cache which is indexed by the C<fileno> of the handle, so if more than one
 handle with the same C<fileno> is specified then only the last one is cached.
 
 Each handle can be an C<IO::Handle> object, an integer or an array
-reference where the first element is a C<IO::Handle> or an integer.
+reference where the first element is an C<IO::Handle> or an integer.
 
 =item remove ( HANDLES )
 
index d670fe59968a0adba104f2e84c5104ca884523c4..2b4c9d7998443963ba3613218c7c546604a5c910 100644 (file)
@@ -432,7 +432,7 @@ is returned.
 =item sockdomain
 
 Returns the numerical number for the socket domain type. For example, for
-a AF_INET socket the value of &AF_INET will be returned.
+an AF_INET socket the value of &AF_INET will be returned.
 
 =item sockopt(OPT [, VAL])
 
index f2c0e2bca007612202b2ffb763e8ba65c8ca234a..6e1dec9803ed4c02bba4fb87f39d627c49134b91 100644 (file)
@@ -191,8 +191,8 @@ typedef double NV;                  /* Older perls lack the NV type */
  */
 #define SX_ITEM                'i'             /* An array item introducer */
 #define SX_IT_UNDEF    'I'             /* Undefined array item */
-#define SX_KEY         'k'             /* An hash key introducer */
-#define SX_VALUE       'v'             /* An hash value introducer */
+#define SX_KEY         'k'             /* A hash key introducer */
+#define SX_VALUE       'v'             /* A hash value introducer */
 #define SX_VL_UNDEF    'V'             /* Undefined hash value */
 
 /*
@@ -238,7 +238,7 @@ struct extendable {
 
 /*
  * At store time:
- * An hash table records the objects which have already been stored.
+ * A hash table records the objects which have already been stored.
  * Those are referred to as SX_OBJECT in the file, and their "tag" (i.e.
  * an arbitrary sequence number) is used to identify them.
  *
@@ -1853,7 +1853,7 @@ sortcmp(const void *a, const void *b)
 /*
  * store_hash
  *
- * Store an hash table.
+ * Store a hash table.
  *
  * Layout is SX_HASH <size> followed by each key/value pair, in random order.
  * Values are stored as <object>.
@@ -2796,7 +2796,7 @@ static int store(stcxt_t *cxt, SV *sv)
         * stored, before recursing...
         *
         * In order to avoid creating new SvIVs to hold the tagnum we just
-        * cast the tagnum to a SV pointer and store that in the hash.  This
+        * cast the tagnum to an SV pointer and store that in the hash.  This
         * means that we must clean up the hash manually afterwards, but gives
         * us a 15% throughput increase.
         *
@@ -3377,7 +3377,7 @@ static SV *retrieve_hook(stcxt_t *cxt, char *cname)
        TRACEME(("class name: %s", class));
 
        /*
-        * Decode user-frozen string length and read it in a SV.
+        * Decode user-frozen string length and read it in an SV.
         *
         * For efficiency reasons, we read data directly into the SV buffer.
         * To understand that code, read retrieve_scalar()
index 19015494893ff9f8d74c7aa934be9af474507f71..feed61b904e234b78915d9ae532e2907250e170d 100644 (file)
@@ -120,7 +120,7 @@ T_AVREF( av )
 =item T_HVREF
 
 From the perl level this is a reference to a perl hash.
-From the C level this is a pointer to a HV.
+From the C level this is a pointer to an HV.
 
 =cut
 
@@ -201,7 +201,7 @@ T_UV( uv )
 =item T_IV
 
 A signed integer. This is cast to the required  integer type when
-passed to C and converted to a IV when passed back to Perl.
+passed to C and converted to an IV when passed back to Perl.
 
 =cut
 
index 10d2af9df8ba8f8dcee1433b0172fe561210eae2..f8d04e22ff27a68237acff83e5216ce5ac28e0bc 100644 (file)
@@ -141,7 +141,7 @@ C<share>, C<lock>, C<unlock>, C<cond_wait>, C<cond_signal>, C<cond_broadcast>
 
 =item share VARIABLE
 
-C<share> takes a value and marks it as shared, you can share an scalar, array, hash
+C<share> takes a value and marks it as shared, you can share a scalar, array, hash
 scalar ref, array ref and hash ref, C<share> will return the shared value.
 
 C<share> will traverse up references exactly I<one> level.
index 92e24d4e4b5aaef0bc6c099eb82a41493d1b81f2..cf655cbc5811e8bb84d82dcf5bbd7270f6d49caa 100644 (file)
@@ -323,7 +323,7 @@ STORE(self, index, value)
        if(SvROK(value)) {
            shared_sv* target = Perl_sharedsv_find(aTHX_ SvRV(value));
            if(!target) {
-                Perl_croak(aTHX_ "You cannot assign a non shared reference to an shared array");
+                Perl_croak(aTHX_ "You cannot assign a non shared reference to a shared array");
            }
             value = newRV_noinc(newSViv(PTR2IV(target)));
         }
@@ -396,7 +396,7 @@ PUSH(self, ...)
            if(SvROK(tmp)) {
                  shared_sv* target = Perl_sharedsv_find(aTHX_ SvRV(tmp));
                  if(!target) {
-                     Perl_croak(aTHX_ "You cannot assign a non shared reference to an shared array");
+                     Perl_croak(aTHX_ "You cannot assign a non shared reference to a shared array");
                  }
                  tmp = newRV_noinc(newSViv(PTR2IV(target)));
             }
@@ -425,7 +425,7 @@ UNSHIFT(self, ...)
            if(SvROK(tmp)) {
                  shared_sv* target = Perl_sharedsv_find(aTHX_ SvRV(tmp));
                  if(!target) {
-                     Perl_croak(aTHX_ "You cannot assign a non shared reference to an shared array");
+                     Perl_croak(aTHX_ "You cannot assign a non shared reference to a shared array");
                  }
                  tmp = newRV_noinc(newSViv(PTR2IV(target)));
             }
index 4f5e03ec153738989f24da07a6158bef70a49872..64cff33af985f9e75a203d6212d65ce2d5c2c305 100644 (file)
@@ -6,7 +6,7 @@
 # The gross features should work with versions going back to 2.nil but
 # some tweaking will probably be necessary.
 #
-# DGUX is a SVR4 derivative.  It ships with gcc as the standard
+# DGUX is an SVR4 derivative.  It ships with gcc as the standard
 # compiler.  Since version 3.0 it has shipped with Perl 4.036
 # installed in /usr/bin, which is kind of neat.  Be careful when you
 # install that you don't overwrite the system version, though (by
diff --git a/hv.c b/hv.c
index 3a67c920d821468ea8e62146a446837098aaf8c6..11992f45727253d45b9a00e563be0f0f96cd86b6 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -154,7 +154,7 @@ Perl_hv_notallowed(pTHX_ bool is_utf8, const char *key, I32 klen,
 Returns the SV which corresponds to the specified key in the hash.  The
 C<klen> is the length of the key.  If C<lval> is set then the fetch will be
 part of a store.  Check that the return value is non-null before
-dereferencing it to a C<SV*>.
+dereferencing it to an C<SV*>.
 
 See L<perlguts/"Understanding the Magic of Tied Hashes and Arrays"> for more
 information on how to use this function on tied hashes.
@@ -274,7 +274,7 @@ Perl_hv_fetch(pTHX_ HV *hv, const char *key, I32 klen, I32 lval)
     return 0;
 }
 
-/* returns a HE * structure with the all fields set */
+/* returns an HE * structure with the all fields set */
 /* note that hent_val will be a mortal sv for MAGICAL hashes */
 /*
 =for apidoc hv_fetch_ent
diff --git a/hv.h b/hv.h
index 58e7d1da4e29e9ead5b2b4075d0ad445ea5a9a82..9d6be7fce9bec3ad78d5362bf340b804df5f4679 100644 (file)
--- a/hv.h
+++ b/hv.h
@@ -64,7 +64,7 @@ struct xpvhv {
 /*
 =for apidoc AmU||HEf_SVKEY
 This flag, used in the length slot of hash entries and magic structures,
-specifies the structure contains a C<SV*> pointer where a C<char*> pointer
+specifies the structure contains an C<SV*> pointer where a C<char*> pointer
 is to be expected. (For information only--not to be used).
 
 =for apidoc AmU||Nullhv
@@ -119,7 +119,7 @@ C<SV*>.
 */
 
 /* these hash entry flags ride on hent_klen (for use only in magic/tied HVs) */
-#define HEf_SVKEY      -2      /* hent_key is a SV* */
+#define HEf_SVKEY      -2      /* hent_key is an SV* */
 
 
 #define Nullhv Null(HV*)
index aa42bc891288c5d93b78c192207539f98e9d8c36..5e8f86162c4f947ef6e51928b63afef057810265 100644 (file)
@@ -279,7 +279,7 @@ attribute C<:ATTR>. For example:
                        "in phase $phase\n";
        }
 
-This creates an handler for the attribute C<:Loud> in the class LoudDecl.
+This creates a handler for the attribute C<:Loud> in the class LoudDecl.
 Thereafter, any subroutine declared with a C<:Loud> attribute in the class
 LoudDecl:
 
@@ -441,7 +441,7 @@ the data argument (C<$_[4]>) to a useable form before passing it to
 the handler get in the way.
 
 You can turn off that eagerness-to-help by declaring
-an attribute handler with the the keyword C<RAWDATA>. For example:
+an attribute handler with the keyword C<RAWDATA>. For example:
 
         sub Raw          : ATTR(RAWDATA) {...}
         sub Nekkid       : ATTR(SCALAR,RAWDATA) {...}
index dbd003d446174ba309f8585e62fa0e337856c152..8d764c1eef13011048d10a2f39f1fe6096b31c2b 100644 (file)
@@ -369,7 +369,7 @@ is (&*MOD*::zombie, "You didn't use fire.", "Are our zombies undead?");
 True, so don't scrub this directory.
 ################################################################
 ## Name
-Without the the timestamp check make sure that nothing happens
+Without the timestamp check make sure that nothing happens
 ## Extra
 0, 1, 1
 ## Require
@@ -391,7 +391,7 @@ is (&*MOD*::zombie, "You didn't use fire.", "Are our zombies still undead?");
 True, so don't scrub this directory.
 ################################################################
 ## Name
-With the the timestamp check make sure that things happen (stuff gets deleted)
+With the timestamp check make sure that things happen (stuff gets deleted)
 ## Extra
 0, 1, 0
 ## Get
index 0be5060dcb3108cde0ad305f08e0c3ec130ab6d7..6ad0191cb2192ed53a7d1cfc8e1d8f6426022022 100644 (file)
@@ -4300,7 +4300,7 @@ such as expiration time.  Use the cookie() method to create and retrieve
 session cookies.
 
 The B<-nph> parameter, if set to a true value, will issue the correct
-headers to work with a NPH (no-parse-header) script.  This is important
+headers to work with an NPH (no-parse-header) script.  This is important
 to use with certain servers that expect all their scripts to be NPH.
 
 The B<-charset> parameter can be used to control the character set
@@ -4337,7 +4337,7 @@ You can also use named arguments:
                           -nph=>1);
 
 The B<-nph> parameter, if set to a true value, will issue the correct
-headers to work with a NPH (no-parse-header) script.  This is important
+headers to work with an NPH (no-parse-header) script.  This is important
 to use with certain servers, such as Microsoft Internet Explorer, which
 expect all their scripts to be NPH.
 
@@ -4723,14 +4723,14 @@ you prefer:
           <IMG ALIGN="LEFT" SRC="fred.gif">
 
 Sometimes an HTML tag attribute has no argument.  For example, ordered
-lists can be marked as COMPACT.  The syntax for this is an argument that
+lists can be marked as COMPACT.  The syntax for this is an argument
 that points to an undef string:
 
    print ol({compact=>undef},li('one'),li('two'),li('three'));
 
 Prior to CGI.pm version 2.41, providing an empty ('') string as an
 attribute argument was the same as providing undef.  However, this has
-changed in order to accommodate those who want to create tags of the form 
+changed in order to accommodate those who want to create tags of the form
 <IMG ALT="">.  The difference is shown in these two pieces of code:
 
    CODE                   RESULT
index 669b38e01002a97f86fb810edd2afef4d5f7fbf5..f165acfaea7f6eead4c84d297ea4d531fde0b0f1 100644 (file)
@@ -31,7 +31,7 @@ sub save_request {
     # no-op
 }
 
-# If ENV{FCGI_SOCKET_PATH} is specified, we maintain a FCGI Request handle
+# If ENV{FCGI_SOCKET_PATH} is specified, we maintain an FCGI Request handle
 # in this package variable.
 use vars qw($Ext_Request);
 BEGIN {
@@ -187,7 +187,7 @@ documentation for C<FCGI::OpenSocket> for more information.)
 =item FCGI_SOCKET_PATH
 
 The address (TCP/IP) or path (UNIX Domain) of the socket the external FastCGI
-script to which bind an listen for incoming connections from the web server.
+script to which bind can listen for incoming connections from the web server.
 
 =item FCGI_LISTEN_QUEUE
 
index de1158d97cbfe772d1c6575bf2d74e6f95620f73..948ec46b31a20df52ce7fbb0a757f3cd55834f3a 100644 (file)
@@ -5475,7 +5475,7 @@ sub inst_version {
     # compare it           use utility for compare
     # print it             do nothing
 
-    # Alt2 maintain it as what is is
+    # Alt2 maintain it as what it is
     # read index files     convert
     # compare it           use utility because there's still a ">" vs "gt" issue
     # print it             use CPAN::Version for print
@@ -6319,7 +6319,7 @@ current session.
 Changes to the directory where the distribution has been unpacked and
 runs the external command C<make install> there. If C<make> has not
 yet been run, it will be run first. A C<make test> will be issued in
-any case and if this fails, the install will be cancelled. The
+any case and if this fails, the install will be canceled. The
 cancellation can be avoided by letting C<force> run the C<install> for
 you.
 
@@ -6406,7 +6406,7 @@ Runs a cvs_import on the distribution associated with this module.
 
 =item CPAN::Module::description()
 
-Returns a 44 chracter description of this module. Only available for
+Returns a 44 character description of this module. Only available for
 modules listed in The Module List (CPAN/modules/00modlist.long.html
 or 00modlist.long.txt.gz)
 
@@ -6438,7 +6438,7 @@ Runs an C<install> on the distribution associated with this module.
 
 =item CPAN::Module::look()
 
-Changes to the directory where the distribution assoicated with this
+Changes to the directory where the distribution associated with this
 module has been unpacked and opens a subshell there. Exiting the
 subshell returns.
 
@@ -6527,7 +6527,7 @@ If you have a local mirror of CPAN and can access all files with
 "file:" URLs, then you only need a perl better than perl5.003 to run
 this module. Otherwise Net::FTP is strongly recommended. LWP may be
 required for non-UNIX systems or if your nearest CPAN site is
-associated with an URL that is not C<ftp:>.
+associated with a URL that is not C<ftp:>.
 
 If you have neither Net::FTP nor LWP, there is a fallback mechanism
 implemented for an external ftp command or for an external lynx
@@ -6709,7 +6709,7 @@ development will go towards strong authentication.
 
 Most functions in package CPAN are exported per default. The reason
 for this is that the primary use is intended for the cpan shell or for
-oneliners.
+one-liners.
 
 =head1 POPULATE AN INSTALLATION WITH LOTS OF MODULES
 
@@ -6758,14 +6758,14 @@ This is where the firewall machine runs a web server and to access the
 outside world you must do it via the web server. If you set environment
 variables like http_proxy or ftp_proxy to a values beginning with http://
 or in your web browser you have to set proxy information then you know
-you are running a http firewall.
+you are running an http firewall.
 
 To access servers outside these types of firewalls with perl (even for
 ftp) you will need to use LWP.
 
 =item ftp firewall
 
-This where the firewall machine runs a ftp server. This kind of
+This where the firewall machine runs an ftp server. This kind of
 firewall will only let you access ftp servers outside the firewall.
 This is usually done by connecting to the firewall with ftp, then
 entering a username like "user@outside.host.com"
@@ -6775,7 +6775,7 @@ will need to use Net::FTP.
 
 =item One way visibility
 
-I say one way visibility as these firewalls try to make themselve look
+I say one way visibility as these firewalls try to make themselves look
 invisible to the users inside the firewall. An FTP data connection is
 normally created by sending the remote server your IP address and then
 listening for the connection. But the remote server will not be able to
@@ -6819,7 +6819,7 @@ like
 
     o conf ncftp "/usr/bin/ncftp -f /home/scott/ncftplogin.cfg"
 
-Your milage may vary...
+Your mileage may vary...
 
 =head1 FAQ
 
index 047380ebeb3103a06ac072aa079557efded42d49..9727a1c4b9e8f3085a84bd8f6a2debb356418f84 100644 (file)
@@ -124,7 +124,7 @@ load the right module on first use.  The second form allow you to use
 algorithm names which contains letters which are not legal perl
 identifiers, e.g. "SHA-1".
 
-If new() is called as a instance method (i.e. $ctx->new) it will just
+If new() is called as an instance method (i.e. $ctx->new) it will just
 reset the state the object to the state of a newly created object.  No
 new object is created in this case, and the return value is the
 reference to the object (i.e. $ctx).
index cb3931821d7a3b5c2f94a48994322eaf3e717592..57b471f6de093479b84d60fbf04446c01fd87784 100644 (file)
@@ -300,7 +300,7 @@ I<VALUE> when not defined.  If I<TYPE> is aggregate (eg I<PVN> expects both
 pointer and length) then I<VALUE> should be a reference to an array of
 values in the order expected by the type.  C<C_constant> will always call
 this function with I<MACRO> defined, defaulting to the constant's name.
-I<DEFAULT> if defined is an array reference giving default type and and
+I<DEFAULT> if defined is an array reference giving default type and
 value(s) if the clause generated by I<MACRO> doesn't evaluate to true.
 The two pairs I<PRE> and I<POST> if defined give C code snippets to proceed
 and follow the value, and the default value.
@@ -853,7 +853,7 @@ be the same list of types as C<C_constant> was given.
 the number of parameters passed to the C function C<constant>]
 
 You can call the perl visible subroutine something other than C<constant> if
-you give the parameter I<SUBNAME>. The C subroutine it calls defaults to the
+you give the parameter I<SUBNAME>. The C subroutine it calls defaults to
 the name of the perl visible subroutine, unless you give the parameter
 I<C_SUBNAME>.
 
@@ -1047,7 +1047,7 @@ END
 
 WriteMakefileSnippet ATTRIBUTE =E<gt> VALUE [, ...] 
 
-An function to generate perl code for Makefile.PL that will regenerate
+A function to generate perl code for Makefile.PL that will regenerate
 the constant subroutines.  Parameters are named as passed to C<WriteConstants>,
 with the addition of C<INDENT> to specify the number of leading spaces
 (default 2).
index 0645268d91109b6fd932008400620041b08a1e2a..8370f213dde9312aeadaa9bb99bef50fb51157cb 100644 (file)
@@ -1801,7 +1801,7 @@ usually solves this kind of problem.
     $self->{INST_SCRIPT} ||= $self->catdir($self->curdir,'blib','script');
 
     # The user who requests an installation directory explicitly
-    # should not have to tell us a architecture installation directory
+    # should not have to tell us an architecture installation directory
     # as well. We look if a directory exists that is named after the
     # architecture. If not we take it as a sign that it should be the
     # same as the requested installation directory. Otherwise we take
index 97b2895f12899b64404c7f2d8ce35f6a18b31398..0df1af4941168a80c52066804d45d727c16b723d 100644 (file)
@@ -736,7 +736,7 @@ sub _is_verysafe {
   # Split directory into components - assume no file
   my ($volume, $directories, undef) = File::Spec->splitpath( $path, 1);
 
-  # Slightly less efficient than having a function in File::Spec
+  # Slightly less efficient than having a function in File::Spec
   # to chop off the end of a directory or even a function that
   # can handle ../ in a directory tree
   # Sometimes splitdir() returns a blank at the end
index 957c272549723389fbcd174485fb9361b929b45c..6f3d18e84752f58002914e5b80aa28e08894690d 100644 (file)
@@ -1193,7 +1193,7 @@ STDERR, and return a false result.
 Getopt::Long supports two useful variants of simple options:
 I<negatable> options and I<incremental> options.
 
-A negatable option is specified with a exclamation mark C<!> after the
+A negatable option is specified with an exclamation mark C<!> after the
 option name:
 
     my $verbose = '';  # option variable with default value (false)
index a143d4ce56b33963dd030a189a556c11b35d084c..ca5ae42c0960334293a910cd5f27d84227088485 100644 (file)
@@ -1563,7 +1563,7 @@ Copyright (c) 2001 Sean M. Burke. All rights reserved.
 You can redistribute and/or
 modify this document under the same terms as Perl itself.
 
-This document is provided in the the hope that it will be
+This document is provided in the hope that it will be
 useful, but without any warranty;
 without even the implied warranty of accuracy, authoritativeness,
 completeness, merchantability, or fitness for a particular purpose.
index 2983492a967e4a874ac996bac0cc5f4020cec414..916fd34b19905a2faa732fe14240ead7fc0a5b7c 100644 (file)
@@ -888,7 +888,7 @@ but since you anticipate localizing this, you write:
   my $lh = ThisProject::I18N->get_handle();
    # For the moment, assume that things are set up so
    # that we load class ThisProject::I18N::en
-   # and that that's the class that $lh belongs to.
+   # and that's the class that $lh belongs to.
   ...
   if(-e $filename) {
     go_process_file($filename)
index 5c2f28cab4ae74b0903de193bdd52977d4319011..dc01b64e7af07ab9464f51ff0422c49052300c97 100644 (file)
@@ -48,7 +48,7 @@ messages, like this:
 
   Your query matched 10 files in 4 directories.
 
-So how hard could that be?  You look at the code that produces
+So how hard could that be?  You look at the code that
 produces the first item, and it reads:
 
   printf("I scanned %g directories.",
@@ -222,7 +222,7 @@ ending... The room begins to spin around you, slowly at first...  But
 with I<all other> integer values, since "directory" is an inanimate
 noun, when preceded by a number and in the nominative or accusative
 cases (as it is here, just your luck!), it does stay plural, but it is
-forced into the genitive case -- yet another another ending...  And
+forced into the genitive case -- yet another ending...  And
 you never hear him get to the part about how you're going to run into
 similar (but maybe subtly different) problems with other Slavic
 languages like Polish, because the floor comes up to meet you, and you
index 4634d0f40449f0e7fddf445bd9e47335e941a6f3..19d30b062e3ece2d6e193dbc0598c4b95de2f59e 100644 (file)
@@ -1561,7 +1561,7 @@ be called an extension, would it?).
 
 A I<new> operation possible on a complex number that is
 the identity for real numbers is called the I<conjugate>, and is noted
-with an horizontal bar above the number, or C<~z> here.
+with a horizontal bar above the number, or C<~z> here.
 
         z = a + bi
        ~z = a - bi
@@ -1660,7 +1660,7 @@ I<arg>, I<abs>, I<log>, I<csc>, I<cot>, I<acsc>, I<acot>, I<csch>,
 I<coth>, I<acosech>, I<acotanh>, have aliases I<rho>, I<theta>, I<ln>,
 I<cosec>, I<cotan>, I<acosec>, I<acotan>, I<cosech>, I<cotanh>,
 I<acosech>, I<acotanh>, respectively.  C<Re>, C<Im>, C<arg>, C<abs>,
-C<rho>, and C<theta> can be used also also mutators.  The C<cbrt>
+C<rho>, and C<theta> can be used also as mutators.  The C<cbrt>
 returns only one of the solutions: if you want all three, use the
 C<root> function.
 
@@ -1836,7 +1836,7 @@ or
        Died at...
 
 For the C<csc>, C<cot>, C<asec>, C<acsc>, C<acot>, C<csch>, C<coth>,
-C<asech>, C<acsch>, the argument cannot be C<0> (zero).  For the the
+C<asech>, C<acsch>, the argument cannot be C<0> (zero).  For the
 logarithmic functions and the C<atanh>, C<acoth>, the argument cannot
 be C<1> (one).  For the C<atanh>, C<acoth>, the argument cannot be
 C<-1> (minus one).  For the C<atan>, C<acot>, the argument cannot be
index 8bd5999077ef913d2370b0871812a368d862739a..b3ab10a69fba2c79d355ad08b60a90c954f91576 100644 (file)
@@ -344,7 +344,7 @@ with a lifetime of ten seconds, and you store it at 12:00:00.998 on a
 certain day.  Memoize will look at the clock and see 12:00:00.  Then
 9.01 seconds later, at 12:00:10.008 you try to read it back.  Memoize
 will look at the clock and see 12:00:10 and conclude that the value
-has expired.  This will probably not occur if if you have
+has expired.  This will probably not occur if you have
 C<Time::HiRes> installed.
 
 =head1 AUTHOR
index 471b2bb79698bf35167fc8d6f2af00fd6c7fe49b..7202d00fdea477b1c5daa7b080d2d1e7656a7e11 100644 (file)
@@ -25,7 +25,7 @@ DESCRIPTION
     the current class -- to look for a suitable method in other
     ancestors of C<$self> -- whereas C<$self->SUPER::m()> cannot.
 
-    An particularly interesting use of redispatch is in
+    A particularly interesting use of redispatch is in
     C<AUTOLOAD>'ed methods. If such a method determines that it is
     not able to handle a particular call, it may choose to
     redispatch that call, in the hope that some other C<AUTOLOAD>
index 450acacd76822ec0d42df3dbf0c2c13df6a0cd88..77dc1f138b87857660b0ada2bb57e5c96aedc082 100644 (file)
@@ -26,7 +26,7 @@ use strict;
        # your internet domain
        inet_domain => undef,
 
-       # If you have an ftp proxy firewall (not a http firewall)
+       # If you have an ftp proxy firewall (not an http firewall)
        # then set this to the name of the firewall
        ftp_firewall => undef,
 
index 5a262fd0f8b299a5a0e5c8689eb528ff2633a0d3..23db846629555c9494fed71c23cf28489f26ba24 100644 (file)
@@ -169,7 +169,7 @@ Your internet domain name
 
 =item ftp_firewall
 
-If you have an FTP proxy firewall (B<NOT> a HTTP or SOCKS firewall)
+If you have an FTP proxy firewall (B<NOT> an HTTP or SOCKS firewall)
 then this value should be set to the firewall hostname. If your firewall
 does not listen to port 21, then this value should be set to
 C<"hostname:port"> (eg C<"hostname:99">)
index 531ff405bb5ca460065f6f397f641c805b1124b4..ffa21e16af8ccb6644851976ba5c60d140bd0496 100644 (file)
@@ -1247,17 +1247,17 @@ this if you really know what you're doing).
 =item new (HOST [,OPTIONS])
 
 This is the constructor for a new Net::FTP object. C<HOST> is the
-name of the remote host to which a FTP connection is required.
+name of the remote host to which an FTP connection is required.
 
 C<OPTIONS> are passed in a hash like fashion, using key and value pairs.
 Possible options are:
 
-B<Firewall> - The name of a machine which acts as a FTP firewall. This can be
+B<Firewall> - The name of a machine which acts as an FTP firewall. This can be
 overridden by an environment variable C<FTP_FIREWALL>. If specified, and the
 given host cannot be directly connected to, then the
 connection is made to the firewall machine and the string C<@hostname> is
 appended to the login identifier. This kind of setup is also refered to
-as a ftp proxy.
+as an ftp proxy.
 
 B<FirewallType> - The type of firewall running on the machine indicated by
 B<Firewall>. This can be overridden by an environment variable
@@ -1394,7 +1394,7 @@ a scalar context, returns a reference to a list.
 =item get ( REMOTE_FILE [, LOCAL_FILE [, WHERE]] )
 
 Get C<REMOTE_FILE> from the server and store locally. C<LOCAL_FILE> may be
-a filename or a filehandle. If not specified the the file will be stored in
+a filename or a filehandle. If not specified, the file will be stored in
 the current directory with the same leafname as the remote file.
 
 If C<WHERE> is given then the first C<WHERE> bytes of the file will
@@ -1476,7 +1476,7 @@ reference to a C<Net::FTP::dataconn> based object.
 
 =item nlst ( [ DIR ] )
 
-Send a C<NLST> command to the server, with an optional parameter.
+Send an C<NLST> command to the server, with an optional parameter.
 
 =item list ( [ DIR ] )
 
@@ -1517,7 +1517,7 @@ C<put_unique> and those that do not require data connections.
 =item port ( [ PORT ] )
 
 Send a C<PORT> command to the server. If C<PORT> is specified then it is sent
-to the server. If not the a listen socket is created and the correct information
+to the server. If not, the a listen socket is created and the correct information
 sent to the server.
 
 =item pasv ()
@@ -1593,7 +1593,7 @@ be performed using these.
 
 Read C<SIZE> bytes of data from the server and place it into C<BUFFER>, also
 performing any <CRLF> translation necessary. C<TIMEOUT> is optional, if not
-given the the timeout value from the command connection will be used.
+given, the timeout value from the command connection will be used.
 
 Returns the number of bytes read before any <CRLF> translation.
 
@@ -1601,7 +1601,7 @@ Returns the number of bytes read before any <CRLF> translation.
 
 Write C<SIZE> bytes of data from C<BUFFER> to the server, also
 performing any <CRLF> translation necessary. C<TIMEOUT> is optional, if not
-given the the timeout value from the command connection will be used.
+given, the timeout value from the command connection will be used.
 
 Returns the number of bytes written before any <CRLF> translation.
 
index 56c97b3cafda626bb2d723a556114d464f4db1fa..53df6e01ea70b55a1d742ccd6a69c53c6a21fa82 100644 (file)
@@ -1016,7 +1016,7 @@ the beginning of the test string just inside the open square
 bracket.
 
 The final operation uses the backslash character to
-invalidate the special meaning of the a open square bracket C<[>,
+invalidate the special meaning of an open square bracket C<[>,
 the asterisk, backslash or the question mark. Two backslashes in
 sequence will result in the evaluation of the backslash as a
 character with no special meaning.
index fb919164add5a7cebc6202a1acdb7254e6fcf4f5..f23157cccafc74ab4191a3fb86671caa1be64c29 100644 (file)
@@ -417,7 +417,7 @@ Send the PASS command. Returns the number of messages in the mailbox.
 
 =item login ( [ USER [, PASS ]] )
 
-Send both the the USER and PASS commands. If C<PASS> is not given the
+Send both the USER and PASS commands. If C<PASS> is not given the
 C<Net::POP3> uses C<Net::Netrc> to lookup the password using the host
 and username. If the username is not specified then the current user name
 will be used.
index 59001acff114d51be18f27d2668d8aa88c10773b..fd115a21ba800464efb49c7b9284dfd6e3c8bb8d 100644 (file)
@@ -55,7 +55,7 @@ CONFIGURE
 
 Normally when perl Makefile.PL is run it will run Configure which will
 ask some questions about your system. The results of these questions
-will be stored in in a file called libnet.cfg which will be installed
+will be stored in a file called libnet.cfg which will be installed
 alongside the other perl modules in this distribution. The Makefile.PL
 will run Configure in an interactive mode unless these exists a file
 called libnet.cfg in the build directory.
index f2647b7ed8394e26754f7749f048e9ade9797a97..ce5777db078544767b1c0b065ee58c6ac9f319e5 100644 (file)
@@ -444,7 +444,7 @@ known as mailhost:
 =item new Net::SMTP [ HOST, ] [ OPTIONS ]
 
 This is the constructor for a new Net::SMTP object. C<HOST> is the
-name of the remote host to which a SMTP connection is required.
+name of the remote host to which an SMTP connection is required.
 
 If C<HOST> is not given, then the C<SMTP_Host> specified in C<Net::Config>
 will be used.
index 4e2152aa76fb336fb4582ef90744b815c4a3d168..1216ff7202c3918f8eb4aabb4f26fa894009f3a1 100644 (file)
@@ -6,8 +6,8 @@ libnetFAQ - libnet Frequently Asked Questions
 
 =head2 Where to get this document
 
-This document is distributed with the libnet disribution, and is also
-avaliable on the libnet web page at
+This document is distributed with the libnet distribution, and is also
+available on the libnet web page at
 
     http://www.pobox.com/~gbarr/libnet/
 
@@ -20,7 +20,7 @@ gbarr@pobox.com.
 
 Copyright (c) 1997-1998 Graham Barr. All rights reserved.
 This document is free; you can redistribute it and/or modify it
-under the terms of the Artistic Licence.
+under the terms of the Artistic License.
 
 =head2 Disclaimer
 
@@ -35,7 +35,7 @@ in respect of this information or its use.
 =head2 What is libnet ?
 
 libnet is a collection of perl5 modules which all related to network
-programming. The majority of the modules avaliable provided the
+programming. The majority of the modules available provided the
 client side of popular server-client protocols that are used in
 the internet community.
 
@@ -55,7 +55,7 @@ these modules.
 
 =head2 What machines support libnet ?
 
-libnet itself is an entirly perl-code distribution so it should work
+libnet itself is an entirely perl-code distribution so it should work
 on any machine that perl runs on. However IO may not work
 with some machines and earlier releases of perl. But this
 should not be the case with perl version 5.004 or later.
@@ -67,14 +67,14 @@ in
 
  http://www.cpan.org/modules/by-module/Net/
 
-The latest release and information is also avaliable on the libnet web page
+The latest release and information is also available on the libnet web page
 at
 
  http://www.pobox.com/~gbarr/libnet/
 
 =head1 Using Net::FTP
 
-=head2 How do I download files from a FTP server ?
+=head2 How do I download files from an FTP server ?
 
 An example taken from an article posted to comp.lang.perl.misc
 
@@ -135,9 +135,9 @@ But this is not guaranteed to work.
 
 =head2 Can I do a reget operation like the ftp command ?
 
-=head2 How do I get a directory listing from a FTP server ?
+=head2 How do I get a directory listing from an FTP server ?
 
-=head2 Changeing directory to "" does not fail ?
+=head2 Changing directory to "" does not fail ?
 
 Passing an argument of "" to ->cwd() has the same affect of calling ->cwd()
 without any arguments. Turn on Debug (I<See below>) and you will see what is
@@ -155,19 +155,19 @@ gives
 =head2 I am behind a SOCKS firewall, but the Firewall option does not work ?
 
 The Firewall option is only for support of one type of firewall. The type
-supported is a ftp proxy.
+supported is an ftp proxy.
 
 To use Net::FTP, or any other module in the libnet distribution,
 through a SOCKS firewall you must create a socks-ified perl executable
 by compiling perl with the socks library.
 
-=head2 I am behind a FTP proxy firewall, but cannot access machines outside ?
+=head2 I am behind an FTP proxy firewall, but cannot access machines outside ?
 
-Net::FTP implements the most popular ftp proxy firewall approach. The sceme
-implemented is that where you loginin to the firewall with C<user@hostname>
+Net::FTP implements the most popular ftp proxy firewall approach. The scheme
+implemented is that where you log in to the firewall with C<user@hostname>
 
 I have heard of one other type of firewall which requires a login to the
-firewall with an accont, then a second login with C<user@hostname>. You can
+firewall with an account, then a second login with C<user@hostname>. You can
 still use Net::FTP to traverse these firewalls, but a more manual approach
 must be taken, eg
 
@@ -178,7 +178,7 @@ must be taken, eg
 =head2 My ftp proxy firewall does not listen on port 21
 
 FTP servers usually listen on the same port number, port 21, as any other
-FTP server. But there is no reason why thi has to be the case.
+FTP server. But there is no reason why this has to be the case.
 
 If you pass a port number to Net::FTP then it assumes this is the port
 number of the final destination. By default Net::FTP will always try
@@ -201,7 +201,7 @@ chmod command via the C<SITE> command. This can be done with
 =head2 I have seen scripts call a method message, but cannot find it documented ?
 
 Net::FTP, like several other packages in libnet, inherits from Net::Cmd, so
-all the methods described in Net::Cmd are also avaliable on Net::FTP
+all the methods described in Net::Cmd are also available on Net::FTP
 objects.
 
 =head2 Why does Net::FTP not implement mput and mget methods
@@ -241,14 +241,14 @@ of this protocol.
 
 =head2 The verify method always returns true ?
 
-Well it may seem thay way, but it does not. The verify method returns true
-if the command suceeded. If you pass verify an address which the
-server would normally have to forward to another machine the the command
-will suceed with something like
+Well it may seem that way, but it does not. The verify method returns true
+if the command succeeded. If you pass verify an address which the
+server would normally have to forward to another machine, the command
+will succeed with something like
 
     252 Couldn't verify <someone@there> but will attempt delivery anyway
 
-This command will only fail if you pass it an address in a domain the
+This command will fail only if you pass it an address in a domain
 the server directly delivers for, and that address does not exist.
 
 =head1 Debugging scripts
@@ -259,7 +259,7 @@ Most of the libnet client classes allow options to be passed to the
 constructor, in most cases one option is called C<Debug>. Passing
 this option with a non-zero value will turn on a protocol trace, which
 will be sent to STDERR. This trace can be useful to see what commands
-are being sent to the remote server and what responces are being
+are being sent to the remote server and what responses are being
 received back.
 
     #!/your/path/to/perl
@@ -287,14 +287,14 @@ this script would output something like
  Net::FTP=GLOB(0x8152974)>>> QUIT
  Net::FTP=GLOB(0x8152974)<<< 221 Goodbye.
 
-The first few lines tell you the modules that Net::FTP uses and thier versions,
-this is usefule data to me when a user reports a bug. The last seven lines
+The first few lines tell you the modules that Net::FTP uses and their versions,
+this is useful data to me when a user reports a bug. The last seven lines
 show the communication with the server. Each line has three parts. The first
 part is the object itself, this is useful for separating the output
-if you are using mutiple objects. The second part is either C<<<<<> to
+if you are using multiple objects. The second part is either C<<<<<> to
 show data coming from the server or C<&gt&gt&gt&gt> to show data
 going to the server. The remainder of the line is the command
-being sent or responce being received.
+being sent or response being received.
 
 =head1 AUTHOR AND COPYRIGHT
 
index b1753b95a2a7ffb3e6f6d3fac9d018df9dd420e3..60d2fefd87eb0553f28d771fcf6363705abe0a56 100644 (file)
@@ -695,7 +695,7 @@ sub idx {
 =item C<$checker-E<gt>hyperlink()>
 
 Add (if argument specified) and retrieve the hyperlinks (as defined by
-C<LE<lt>E<gt>>) of the current POD. They consist of an 2-item array: line
+C<LE<lt>E<gt>>) of the current POD. They consist of a 2-item array: line
 number and C<Pod::Hyperlink> object.
 
 =back
index 1e9cd568e880085da23444bfd15382b71b4dfd34..69953617ebc2a1baf64feb0a74ef2dd9aa8fba70 100644 (file)
@@ -1169,7 +1169,7 @@ sub process_cut {
 }
 
 #
-# process_pod - process a pod pod tag, thus stop ignoring pod directives
+# process_pod - process a pod tag, thus stop ignoring pod directives
 # until we see a corresponding cut.
 #
 sub process_pod {
@@ -1574,7 +1574,7 @@ sub process_text1($$;$$){
             warn "$0: $podfile: cannot resolve L<$opar> in paragraph $paragraph.";
         }
 
-        # now we have an URL or just plain code
+        # now we have a URL or just plain code
         $$rstr = $linktext . '>' . $$rstr;
         if( defined( $url ) ){
             $res = "<A HREF=\"$url\">" . process_text1( $lev, $rstr ) . '</A>';
@@ -1692,7 +1692,7 @@ sub dosify {
 }
 
 #
-# page_sect - make an URL from the text of a L<>
+# page_sect - make a URL from the text of a L<>
 #
 sub page_sect($$) {
     my( $page, $section ) = @_;
index 352373b9da40a626d30762bfe774c67ab4e181d0..079a40bd5b2f5cb8d771457b7789e3dece4970c2 100644 (file)
@@ -447,7 +447,7 @@ C<-line> keywords indicate the filename and line number corresponding
 to the beginning of the interior sequence. If the C<$ptree> argument is
 given, it must be the last argument, and it must be either string, or
 else an array-ref suitable for passing to B<Pod::ParseTree::new> (or
-it may be a reference to an Pod::ParseTree object).
+it may be a reference to a Pod::ParseTree object).
 
 =cut
 
index c909d21f35d9c76edeba17fb32d7769276a754f7..218714d2fd9a6a8d00c352580cfd790e23854d5d 100644 (file)
@@ -370,7 +370,7 @@ In its simplest form this is simply:
 
   \end{document}
 
-but can be more complicated if a index is required.
+but can be more complicated if an index is required.
 Can be used to set or retrieve the current value.
 
   $add = $parser->AddPostamble();
index ffb35dc4c331e7d1bbd247935ed99a7ad817d5d8..ab12eeb8e2dc45ab9c26c35e4faf2c5635948f6e 100644 (file)
@@ -1292,7 +1292,7 @@ output).
 =item release
 
 Set the centered footer.  By default, this is the version of Perl you run
-Pod::Man under.  Note that some system an macro sets assume that the
+Pod::Man under.  Note that some system macro sets assume that the
 centered footer will be a modification date and will prepend something like
 "Last modified: "; if this is the case, you may want to set C<release> to
 the last modified date and C<date> to the version number.
index 6782519d96df9970598aac0a0c16f7e15b414c81..85551faca8896393e45ecf5096c6aefc5c63efef 100644 (file)
@@ -151,7 +151,7 @@ to do more sophisticated tree-based parsing. See L<"TREE-BASED PARSING">.
 
 A I<parse-option> is simply a named option of B<Pod::Parser> with a
 value that corresponds to a certain specified behavior. These various
-behaviors of B<Pod::Parser> may be enabled/disabled by setting or
+behaviors of B<Pod::Parser> may be enabled/disabled by setting
 or unsetting one or more I<parse-options> using the B<parseopts()> method.
 The set of currently accepted parse-options is as follows:
 
@@ -647,7 +647,7 @@ their functionality.
 
 This method is useful if you need to perform your own interpolation 
 of interior sequences and can't rely upon B<interpolate> to expand
-them in simple bottom-up order order.
+them in simple bottom-up order.
 
 The parameter C<$text> is a string or block of text to be parsed
 for interior sequences; and the parameter C<$line_num> is the
@@ -1588,7 +1588,7 @@ markup languages like HTML and XML) then you may need to take the
 tree-based approach. Rather than doing everything in one pass and
 calling the B<interpolate()> method to expand sequences into text, it
 may be desirable to instead create a parse-tree using the B<parse_text()>
-method to return a tree-like structure which may contain an ordered list
+method to return a tree-like structure which may contain an ordered
 list of children (each of which may be a text-string, or a similar
 tree-like structure).
 
index e7c820f3503a38506aacc1556c04cc2a8c69f0fc..8310ea6c7c805bffb7bef18e8ae1456456c6fd1f 100644 (file)
@@ -181,7 +181,7 @@ Where I<cmd-expr> is intended to match the name of one or more POD
 commands, and I<text-expr> is intended to match the paragraph text for
 the command. If a range-regex is supposed to match a POD command, then
 the first character of the regex (the one after the initial '/')
-absolutely I<must> be an single '=' character; it may not be anything
+absolutely I<must> be a single '=' character; it may not be anything
 else (not even a regex meta-character) if it is supposed to match
 against the name of a POD command.
 
index 38f1f70c5635ea18b3f5d9a82fb0c0b47b4cfd78..fa1cd2b9dd94c433c6b17347d86abde84e05b8f5 100644 (file)
@@ -137,7 +137,7 @@ So now you'd see...
 =head2 Test the manual
 
 Simplest way to build up a decent testing suite is to just test what
-the manual says it does. [3] Let's pull something out of of the
+the manual says it does. [3] Let's pull something out of the
 Date::ICal SYNOPSIS and test that all it's bits work.
 
     #!/usr/bin/perl -w
index f50e2f58d4b839c9e5fcbf3ac95e5a8372982e50..b9a33cb01f1fb0b8d9c12f24fcf52c9a8c194b4f 100644 (file)
@@ -1194,7 +1194,7 @@ pattern C<'\s*'> - optional whitespace - is used. If the delimiter set
 is also not specified, the set C</["'`]/> is used. If the text to be processed
 is not specified either, C<$_> is used.
 
-In list context, C<extract_delimited> returns a array of three
+In list context, C<extract_delimited> returns an array of three
 elements, the extracted substring (I<including the surrounding
 delimiters>), the remainder of the text, and the skipped prefix (if
 any). If a suitable delimited substring is not found, the first
@@ -1429,7 +1429,7 @@ C<extract_tagged> returns the complete text up to the point of failure.
 If the string is "PARA", C<extract_tagged> returns only the first paragraph
 after the tag (up to the first line that is either empty or contains
 only whitespace characters).
-If the string is "", the the default behaviour (i.e. failure) is reinstated.
+If the string is "", the default behaviour (i.e. failure) is reinstated.
 
 For example, suppose the start tag "/para" introduces a paragraph, which then
 continues until the next "/endpara" tag or until another "/para" tag is
@@ -1628,7 +1628,7 @@ the right delimiter of the first block of the operation,
 =item [7]
 
 the left delimiter of the second block of the operation
-(that is, if it is a C<s>, C<tr>, or C<y>),
+(that is, if it is an C<s>, C<tr>, or C<y>),
 
 =item [8]
 
@@ -1746,7 +1746,7 @@ However, the matching position of the input variable would be set to
 which would cause the earlier " || die;\nexit;" to be skipped in any
 sequence of code fragment extractions.
 
-To avoid this problem, when it encounters a here document whilst
+To avoid this problem, when it encounters a here document while
 extracting from a modifiable string, C<extract_quotelike> silently
 rearranges the string to an equivalent piece of Perl:
 
@@ -1786,7 +1786,7 @@ Omitting the third argument (prefix argument) implies optional whitespace at the
 Omitting the fourth argument (outermost delimiter brackets) indicates that the
 value of the second argument is to be used for the outermost delimiters.
 
-Once the prefix an dthe outermost opening delimiter bracket have been
+Once the prefix an the outermost opening delimiter bracket have been
 recognized, code blocks are extracted by stepping through the input text and
 trying the following alternatives in sequence:
 
@@ -1873,7 +1873,7 @@ extracted substring removed from it. In all contexts
 C<extract_multiple> starts at the current C<pos> of the string, and
 sets that C<pos> appropriately after it matches.
 
-Hence, the aim of of a call to C<extract_multiple> in a list context
+Hence, the aim of a call to C<extract_multiple> in a list context
 is to split the processed string into as many non-overlapping fields as
 possible, by repeatedly applying each of the specified extractors
 to the remainder of the string. Thus C<extract_multiple> is
@@ -1905,7 +1905,7 @@ is used.
 
 =item 3.
 
-An number specifying the maximum number of fields to return. If this
+A number specifying the maximum number of fields to return. If this
 argument is omitted (or C<undef>), split continues as long as possible.
 
 If the third argument is I<N>, then extraction continues until I<N> fields
@@ -1956,7 +1956,7 @@ If none of the extractor subroutines succeeds, then one
 character is extracted from the start of the text and the extraction
 subroutines reapplied. Characters which are thus removed are accumulated and
 eventually become the next field (unless the fourth argument is true, in which
-case they are disgarded).
+case they are discarded).
 
 For example, the following extracts substrings that are valid Perl variables:
 
index 0aaccd0c238652d2fdd07d867e603f3e485bb731..ff9cc8fc05ad3ad35ffe2dad465ca7d93b2c48d3 100644 (file)
@@ -112,7 +112,7 @@ as defined by the Unicode standard:
 
 If no match is found, a reference to an empty hash is returned.
 
-The C<block> property is the same as as returned by charinfo().  It is
+The C<block> property is the same as returned by charinfo().  It is
 not defined in the Unicode Character Database proper (Chapter 4 of the
 Unicode 3.0 Standard, aka TUS3) but instead in an auxiliary database
 (Chapter 14 of TUS3).  Similarly for the C<script> property.
index 9a3d50d365af843b12f6867b651bda418699fd21..bd1d91f82293343aab7f112bfcddef0cff253344 100644 (file)
@@ -20,7 +20,7 @@ package bigint;
 #   '+0'                            canonical zero value
 #   '   -123 123 123'               canonical value '-123123123'
 #   '1 23 456 7890'                 canonical value '+1234567890'
-# Output values always always in canonical form
+# Output values always in canonical form
 #
 # Actual math is done in an internal format consisting of an array
 #   whose first element is the sign (/^[+-]$/) and whose remaining 
index 3f0af1a8d7fa1431e3c82dafd711b0edad8e6f17..0b9d7321d6523896eb6b72e45f4d86b7644f1ac8 100644 (file)
@@ -330,7 +330,7 @@ sub ftp'cwd
 # &ftp'dir( remote LIST options )
 # Start a list goin with the given options.
 # Presuming that the remote deamon uses the ls command to generate the
-# data to send back then then you can send it some extra options (eg: -lRa)
+# data to send back then you can send it some extra options (eg: -lRa)
 # return 1 if sucessful and 0 on a failure
 sub ftp'dir_open
 {
index 21a4b671ffc1cefbc0a29b182acf7e6a55b2dca0..838c91fcee0479881aaa7909c8958eb9e2d4b6ac 100644 (file)
@@ -298,7 +298,7 @@ if C<+=> is not overloaded.
 
 =back
 
-B<Warning.>  Due to the presense of assignment versions of operations,
+B<Warning.>  Due to the presence of assignment versions of operations,
 routines which may be called in assignment context may create
 self-referential structures.  Currently Perl will not free self-referential
 structures until cycles are C<explicitly> broken.  You may get problems
@@ -852,7 +852,7 @@ C<$a = $b> values of $a and $b become I<indistinguishable>.
 On the other hand, anyone who has used algebraic notation knows the
 expressive power of the arithmetic metaphor.  Overloading works hard
 to enable this metaphor while preserving the Perlian way as far as
-possible.  Since it is not not possible to freely mix two contradicting
+possible.  Since it is not possible to freely mix two contradicting
 metaphors, overloading allows the arithmetic way to write things I<as
 far as all the mutators are called via overloaded access only>.  The
 way it is done is described in L<Copy Constructor>.
@@ -969,7 +969,7 @@ TIEHASH() method is a scalar reference.
 
 Second, we create a new tied hash each time the hash syntax is used.
 This allows us not to worry about a possibility of a reference loop,
-would would lead to a memory leak.
+which would lead to a memory leak.
 
 Both these problems can be cured.  Say, if we want to overload hash
 dereference on a reference to an object which is I<implemented> as a
@@ -1135,7 +1135,7 @@ which outputs
 and one can inspect the value in debugger using all the possible
 methods.
 
-Something is is still amiss: consider the loop variable $cnt of the
+Something is still amiss: consider the loop variable $cnt of the
 script.  It was a number, not an object.  We cannot make this value of
 type C<symbolic>, since then the loop will not terminate.
 
index 48ee09fe3e2659655ffb7361938990dfad0eefb4..5e01d53743b6477e70d80ca51177b38eb3ff66e0 100644 (file)
@@ -206,7 +206,7 @@ $header = "perl5db.pl version $VERSION";
 #       I<CreateTTY>       bits control attempts to create a new TTY on events:
 #                          1: on fork()   2: debugger is started inside debugger
 #                          4: on startup
-#   c) Code to auto-create a new TTY window on OS/2 (currently one one
+#   c) Code to auto-create a new TTY window on OS/2 (currently one
 #      extra window per session - need named pipes to have more...);
 #   d) Simplified interface for custom createTTY functions (with a backward
 #      compatibility hack); now returns the TTY name to use; return of ''
index 7e6eb488af3bb9179669c749961f17712e486c87..f3484912ed7cb594d863ac68bf5f9165cf8c2c17 100644 (file)
@@ -904,7 +904,7 @@ href="http://www.unicode.org/unicode/standard/versions/enumeratedversions.html#U
   <li>Corrected error in canonical decomposition for U+1FF4.</li>
   <li>Added compatibility decompositions to clarify collation tables. (U+2100, 
     U+2101, U+2105, U+2106, U+1E9A)</li>
-  <li>A series of general category changes to assist the convergence of of 
+  <li>A series of general category changes to assist the convergence of
     Unicode definition of identifier with ISO TR 10176:
     <ul>
       <li>So &gt; Lo: U+0950, U+0AD0, U+0F00, U+0F88..U+0F8B</li>
index fa7ba990b06545a9b3035baa2db8ec87f83031f7..b3b9ba061f7e1b3d50b51ce224a622355de5d116 100644 (file)
--- a/nostdio.h
+++ b/nostdio.h
@@ -1,7 +1,7 @@
 /*
  * Strong denial of stdio - make all stdio calls (we can think of) errors
  */
-/* This is an 1st attempt to stop other include files pulling
+/* This is a 1st attempt to stop other include files pulling
    in real <stdio.h>.
    A more ambitious set of possible symbols can be found in
    sfio.h (inside an _cplusplus gard).
index 2e1e261fd2f396210a8ba1dc67ebb4b394d8c5ce..ba2f5b84c66ae36c99e5cee53861e82dca9ef306 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -122,7 +122,7 @@ returns UV_MAX, sets C<PERL_SCAN_GREATER_THAN_UV_MAX> in the output flags,
 and writes the value to I<*result> (or the value is discarded if I<result>
 is NULL).
 
-The hex number may optinally be prefixed with "0b" or "b" unless
+The hex number may optionally be prefixed with "0b" or "b" unless
 C<PERL_SCAN_DISALLOW_PREFIX> is set in I<*flags> on entry. If
 C<PERL_SCAN_ALLOW_UNDERSCORES> is set in I<*flags> then the binary
 number may use '_' characters to separate digits.
@@ -178,7 +178,7 @@ Perl_grok_bin(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result) {
             }
             value_nv *= 2.0;
            /* If an NV has not enough bits in its mantissa to
-            * represent an UV this summing of small low-order numbers
+            * represent a UV this summing of small low-order numbers
             * is a waste of time (because the NV cannot preserve
             * the low-order bits anyway): we could just remember when
             * did we overflow and in the end just multiply value_nv by the
@@ -236,7 +236,7 @@ returns UV_MAX, sets C<PERL_SCAN_GREATER_THAN_UV_MAX> in the output flags,
 and writes the value to I<*result> (or the value is discarded if I<result>
 is NULL).
 
-The hex number may optinally be prefixed with "0x" or "x" unless
+The hex number may optionally be prefixed with "0x" or "x" unless
 C<PERL_SCAN_DISALLOW_PREFIX> is set in I<*flags> on entry. If
 C<PERL_SCAN_ALLOW_UNDERSCORES> is set in I<*flags> then the hex
 number may use '_' characters to separate digits.
@@ -293,7 +293,7 @@ Perl_grok_hex(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result) {
             }
             value_nv *= 16.0;
            /* If an NV has not enough bits in its mantissa to
-            * represent an UV this summing of small low-order numbers
+            * represent a UV this summing of small low-order numbers
             * is a waste of time (because the NV cannot preserve
             * the low-order bits anyway): we could just remember when
             * did we overflow and in the end just multiply value_nv by the
@@ -375,7 +375,7 @@ Perl_grok_oct(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result) {
             }
             value_nv *= 8.0;
            /* If an NV has not enough bits in its mantissa to
-            * represent an UV this summing of small low-order numbers
+            * represent a UV this summing of small low-order numbers
             * is a waste of time (because the NV cannot preserve
             * the low-order bits anyway): we could just remember when
             * did we overflow and in the end just multiply value_nv by the
diff --git a/perl.h b/perl.h
index 9b6c562d251cee5a78da6aa01ebc4da002878fa7..6fb0257e429ee257badb10c7d1008a2cd34841dd 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2437,7 +2437,7 @@ Gid_t getegid (void);
 #endif /* DEBUGGING */
 
 
-/* These constants should be used in preference to to raw characters
+/* These constants should be used in preference to raw characters
  * when using magic. Note that some perl guts still assume
  * certain character properties of these constants, namely that
  * isUPPER() and toLOWER() may do useful mappings.
index 797238c1eacf1e0f0305dcbb25ecfd3b50d6e9b1..1a21e25bd6900b870aadc4172fa1ca51663532fd 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -3518,7 +3518,7 @@ PerlIOCrlf_get_cnt(PerlIO *f)
                        int code;
                        b->ptr++;       /* say we have read it as far as
                                         * flush() is concerned */
-                       b->buf++;       /* Leave space an front of buffer */
+                       b->buf++;       /* Leave space in front of buffer */
                        b->bufsiz--;    /* Buffer is thus smaller */
                        code = PerlIO_fill(f);  /* Fetch some more */
                        b->bufsiz++;    /* Restore size for next time */
index e01489ab492e6ff1a1005865777d48b78b897eca..fb6d0a669d19c967b1b9152a2d26d980cb3fe1f0 100644 (file)
@@ -575,7 +575,7 @@ returns UV_MAX, sets C<PERL_SCAN_GREATER_THAN_UV_MAX> in the output flags,
 and writes the value to I<*result> (or the value is discarded if I<result>
 is NULL).
 
-The hex number may optinally be prefixed with "0b" or "b" unless
+The hex number may optionally be prefixed with "0b" or "b" unless
 C<PERL_SCAN_DISALLOW_PREFIX> is set in I<*flags> on entry. If
 C<PERL_SCAN_ALLOW_UNDERSCORES> is set in I<*flags> then the binary
 number may use '_' characters to separate digits.
@@ -601,7 +601,7 @@ returns UV_MAX, sets C<PERL_SCAN_GREATER_THAN_UV_MAX> in the output flags,
 and writes the value to I<*result> (or the value is discarded if I<result>
 is NULL).
 
-The hex number may optinally be prefixed with "0x" or "x" unless
+The hex number may optionally be prefixed with "0x" or "x" unless
 C<PERL_SCAN_DISALLOW_PREFIX> is set in I<*flags> on entry. If
 C<PERL_SCAN_ALLOW_UNDERSCORES> is set in I<*flags> then the hex
 number may use '_' characters to separate digits.
@@ -2285,7 +2285,7 @@ Found in file sv.h
 =item SvIVx
 
 Coerces the given SV to an integer and returns it. Guarantees to evaluate
-sv only once. Use the more efficent C<SvIV> otherwise.
+sv only once. Use the more efficient C<SvIV> otherwise.
 
        IV      SvIVx(SV* sv)
 
@@ -2410,7 +2410,7 @@ Found in file sv.h
 =item SvNVx
 
 Coerces the given SV to a double and returns it. Guarantees to evaluate
-sv only once. Use the more efficent C<SvNV> otherwise.
+sv only once. Use the more efficient C<SvNV> otherwise.
 
        NV      SvNVx(SV* sv)
 
@@ -2519,7 +2519,7 @@ Found in file sv.h
 =item SvPVbytex
 
 Like C<SvPV>, but converts sv to byte representation first if necessary.
-Guarantees to evalute sv only once; use the more efficient C<SvPVbyte>
+Guarantees to evaluate sv only once; use the more efficient C<SvPVbyte>
 otherwise.
 
 
@@ -2531,7 +2531,7 @@ Found in file sv.h
 =item SvPVbytex_force
 
 Like C<SvPV_force>, but converts sv to byte representation first if necessary.
-Guarantees to evalute sv only once; use the more efficient C<SvPVbyte_force>
+Guarantees to evaluate sv only once; use the more efficient C<SvPVbyte_force>
 otherwise.
 
        char*   SvPVbytex_force(SV* sv, STRLEN len)
@@ -2569,7 +2569,7 @@ Found in file sv.h
 =item SvPVutf8x
 
 Like C<SvPV>, but converts sv to utf8 first if necessary.
-Guarantees to evalute sv only once; use the more efficient C<SvPVutf8>
+Guarantees to evaluate sv only once; use the more efficient C<SvPVutf8>
 otherwise.
 
        char*   SvPVutf8x(SV* sv, STRLEN len)
@@ -2580,7 +2580,7 @@ Found in file sv.h
 =item SvPVutf8x_force
 
 Like C<SvPV_force>, but converts sv to utf8 first if necessary.
-Guarantees to evalute sv only once; use the more efficient C<SvPVutf8_force>
+Guarantees to evaluate sv only once; use the more efficient C<SvPVutf8_force>
 otherwise.
 
        char*   SvPVutf8x_force(SV* sv, STRLEN len)
@@ -2953,7 +2953,7 @@ Found in file sv.h
 =item SvUVx
 
 Coerces the given SV to an unsigned integer and returns it. Guarantees to
-evaluate sv only once. Use the more efficent C<SvUV> otherwise.
+evaluate sv only once. Use the more efficient C<SvUV> otherwise.
 
        UV      SvUVx(SV* sv)
 
@@ -4245,7 +4245,7 @@ $utf8::ToLower, which is stored in lib/unicore/To/Lower.pl,
 and loaded by SWASHGET, using lib/utf8_heavy.pl.
 
 The "special" is a string like "utf8::ToSpecLower", which means
-the hash %utf8::ToSpecLower, which is stored in in the same file,
+the hash %utf8::ToSpecLower, which is stored in the same file,
 lib/unicore/To/Lower.pl, and also loaded by SWASHGET.  The access
 to the hash is by Perl_to_utf8_case().
 
index 282592e9fb16e232dfd5c22ee7ebb535eb49824c..07c4202bc145b885200b7d7eb92a16c39beec13a 100644 (file)
@@ -9,7 +9,7 @@ internal form (a parse tree) which is then optimized before being
 run.  Since version 5.005, Perl has shipped with a module
 capable of inspecting the optimized parse tree (C<B>), and this has
 been used to write many useful utilities, including a module that lets
-you turn your Perl into C source code that can be compiled into an
+you turn your Perl into C source code that can be compiled into a
 native executable.
 
 The C<B> module provides access to the parse tree, and other modules
index efc979861f4d0848d286323ca4dd900e3ebcebf0..ff2b074ec4ad0f0d1c2993c569f304478f71b55f 100644 (file)
@@ -774,7 +774,7 @@ were
           4     12    24    48    80
 
 With non-C<DEBUGGING> perl, the buckets starting from C<128> have
-a 4-byte overhead, and thus a 8192-long bucket may take up to
+a 4-byte overhead, and thus an 8192-long bucket may take up to
 8188-byte allocations.
 
 =item C<Total sbrk(): SBRKed/SBRKs:CONTINUOUS>
index 365faa6928187592583c059350efdd9d58c8a33f..a4c6543bd2eae5f82eb065813d72c549548936c0 100644 (file)
@@ -611,7 +611,7 @@ line.
 
 =item Can't exec "%s": %s
 
-(W exec) An system(), exec(), or piped open call could not execute the
+(W exec) A system(), exec(), or piped open call could not execute the
 named program for the indicated reason.  Typical reasons include: the
 permissions were wrong on the file, the file wasn't found in
 C<$ENV{PATH}>, the executable in question was compiled for another
@@ -1629,11 +1629,11 @@ two from 1 to 32 (or 64, if your platform supports that).
 
 =item Illegal octal digit %s
 
-(F) You used an 8 or 9 in a octal number.
+(F) You used an 8 or 9 in an octal number.
 
 =item Illegal octal digit %s ignored
 
-(W digit) You may have tried to use an 8 or 9 in a octal number.
+(W digit) You may have tried to use an 8 or 9 in an octal number.
 Interpretation of the octal number stopped before the 8 or 9.
 
 =item Illegal switch in PERL5OPT: %s
@@ -1837,7 +1837,7 @@ L<perlfunc/listen>.
 
 =item lstat() on filehandle %s
 
-(W io) You tried to do a lstat on a filehandle.  What did you mean
+(W io) You tried to do an lstat on a filehandle.  What did you mean
 by that?  lstat() makes sense only on filenames.  (Perl did a fstat()
 instead on the filehandle.)
 
@@ -2688,7 +2688,7 @@ the result of the value of the environment variable PERLIO.
 =item perlio: invalid separator character %s in attribute list
 
 (S) When pushing layers onto the Perl I/O system, something other than a
-colon or whitespace was seen between the elements of an layer list.
+colon or whitespace was seen between the elements of a layer list.
 If the previous attribute had a parenthesised parameter list, perhaps that
 list was terminated too soon.
 
@@ -3284,13 +3284,13 @@ L<perlop/"Quote and Quote-like Operators">.
 
 =item Substitution pattern not terminated
 
-(F) The lexer couldn't find the interior delimiter of a s/// or s{}{}
+(F) The lexer couldn't find the interior delimiter of an s/// or s{}{}
 construct.  Remember that bracketing delimiters count nesting level.
 Missing the leading C<$> from variable C<$s> may cause this error.
 
 =item Substitution replacement not terminated
 
-(F) The lexer couldn't find the final delimiter of a s/// or s{}{}
+(F) The lexer couldn't find the final delimiter of an s/// or s{}{}
 construct.  Remember that bracketing delimiters count nesting level.
 Missing the leading C<$> from variable C<$s> may cause this error.
 
index 5ab97e179512bed870a82b123ea32b2479652fc0..11304a67acd95b9577b05061ba6e9b0a2fa5ecde 100644 (file)
@@ -15,7 +15,7 @@ hacked Perl's internal symbol table directly, a strategy that proved hard
 to develop and maintain--to put it mildly.
 
 The 5.0 release of Perl let us have complex data structures.  You
-may now write something like this and all of a sudden, you'd have a array
+may now write something like this and all of a sudden, you'd have an array
 with three dimensions!
 
     for $x (1 .. 10) {
@@ -32,7 +32,7 @@ elaborate construct than meets the eye!
 
 How do you print it out?  Why can't you say just C<print @AoA>?  How do
 you sort it?  How can you pass it to a function or get one of these back
-from a function?  Is is an object?  Can you save it to disk to read
+from a function?  Is it an object?  Can you save it to disk to read
 back later?  How do you access whole rows or columns of that matrix?  Do
 all the values have to be numeric?
 
@@ -76,7 +76,7 @@ one-dimensional.  They can hold only scalar values (meaning a string,
 number, or a reference).  They cannot directly contain other arrays or
 hashes, but instead contain I<references> to other arrays or hashes.
 
-You can't use a reference to a array or hash in quite the same way that you
+You can't use a reference to an array or hash in quite the same way that you
 would a real array or hash.  For C or C++ programmers unused to
 distinguishing between arrays and pointers to the same, this can be
 confusing.  If so, just think of it as the difference between a structure
@@ -332,7 +332,7 @@ types of data structures.
 
 =head1 ARRAYS OF ARRAYS
 
-=head2 Declaration of a ARRAY OF ARRAYS
+=head2 Declaration of an ARRAY OF ARRAYS
 
  @AoA = (
         [ "fred", "barney" ],
@@ -340,7 +340,7 @@ types of data structures.
         [ "homer", "marge", "bart" ],
       );
 
-=head2 Generation of a ARRAY OF ARRAYS
+=head2 Generation of an ARRAY OF ARRAYS
 
  # reading from file
  while ( <> ) {
@@ -361,7 +361,7 @@ types of data structures.
  # add to an existing row
  push @{ $AoA[0] }, "wilma", "betty";
 
-=head2 Access and Printing of a ARRAY OF ARRAYS
+=head2 Access and Printing of an ARRAY OF ARRAYS
 
  # one element
  $AoA[0][0] = "Fred";
@@ -466,7 +466,7 @@ types of data structures.
 
 =head1 ARRAYS OF HASHES
 
-=head2 Declaration of a ARRAY OF HASHES
+=head2 Declaration of an ARRAY OF HASHES
 
  @AoH = (
         {
@@ -485,7 +485,7 @@ types of data structures.
         }
   );
 
-=head2 Generation of a ARRAY OF HASHES
+=head2 Generation of an ARRAY OF HASHES
 
  # reading from file
  # format: LEAD=fred FRIEND=barney
@@ -521,7 +521,7 @@ types of data structures.
  $AoH[0]{pet} = "dino";
  $AoH[2]{pet} = "santa's little helper";
 
-=head2 Access and Printing of a ARRAY OF HASHES
+=head2 Access and Printing of an ARRAY OF HASHES
 
  # one element
  $AoH[0]{lead} = "fred";
index 1a08a77390f453184f735f0aad51acf2f3eb99cc..e8634577b005aeb12321aaaa452fb8d9c3d45b0e 100644 (file)
@@ -792,7 +792,7 @@ Now compile:
 
  % cc -o persistent persistent.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
 
-Here's a example script file:
+Here's an example script file:
 
  #test.pl
  my $string = "hello";
index be7e8ecc73f356df00edc0ff8b69259840b35e51..7c9fa6a20265285b99aaf25de0f2ccedd254e3a4 100644 (file)
@@ -279,7 +279,7 @@ consider an underscore a letter).
 
 The Perl parser will expand $variable and @variable references in
 regular expressions unless the delimiter is a single quote.  Remember,
-too, that the right-hand side of a C<s///> substitution is considered
+too, that the right-hand side of an C<s///> substitution is considered
 a double-quoted string (see L<perlop> for more details).  Remember
 also that any regex special characters will be acted on unless you
 precede the substitution with \Q.  Here's an example:
index 4221371a05dc2e40e157cbea475704260a9cdf53..0103f8cfa3180da479ec0863bdd09a4aecb189b3 100644 (file)
@@ -527,7 +527,7 @@ blocks get included.
 Once you can identify individual blocks, try allowing them to be
 nested. That isn't difficult either.
 
-Here is a interesting idea that doesn't involve the Debug filter.
+Here is an interesting idea that doesn't involve the Debug filter.
 Currently Perl subroutines have fairly limited support for formal
 parameter lists. You can specify the number of parameters and their
 type, but you still have to manually take them out of the C<@_> array
index 8722105c2b6fa9beffc50b5e9ca9b9b71f1f974a..174ff60f27eecf1de1601a9087d02cd3a32d4c40 100644 (file)
@@ -69,7 +69,7 @@ last value in the list.  Some operators return a count of successful
 operations.  In general, they do what you want, unless you want
 consistency.
 
-An named array in scalar context is quite different from what would at
+A named array in scalar context is quite different from what would at
 first glance appear to be a list in scalar context.  You can't get a list
 like C<(1,2,3)> into being in scalar context, because the compiler knows
 the context at compile time.  It would generate the scalar comma operator
@@ -857,7 +857,7 @@ 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
 modules.
 
-If using crypt() on an Unicode string (which potentially has
+If using crypt() on a Unicode string (which potentially has
 characters with codepoints above 255), Perl tries to make sense of
 the situation by using only the low eight bits of the characters when
 calling crypt().
@@ -2004,7 +2004,7 @@ C<File::Glob> extension.  See L<File::Glob> for details.
 
 =item gmtime EXPR
 
-Converts a time as returned by the time function to a 8-element list
+Converts a time as returned by the time function to an 8-element list
 with the time localized for the standard Greenwich time zone.
 Typically used as follows:
 
@@ -2327,7 +2327,7 @@ C<redo> work.
 
 =item lc
 
-Returns an lowercased version of EXPR.  This is the internal function
+Returns a lowercased version of EXPR.  This is the internal function
 implementing the C<\L> escape in double-quoted strings.  Respects
 current LC_CTYPE locale if C<use locale> in force.  See L<perllocale>
 and L<perlunicode> for more details about locale and Unicode support.
@@ -3925,7 +3925,7 @@ may vary from one execution to the next (see C<wantarray>).  If no EXPR
 is given, returns an empty list in list context, the undefined value in
 scalar context, and (of course) nothing at all in a void context.
 
-(Note that in the absence of a explicit C<return>, a subroutine, eval,
+(Note that in the absence of an explicit C<return>, a subroutine, eval,
 or do FILE will automatically return the value of the last expression
 evaluated.)
 
index 8ccdde8fa81ea73f5be3e5c4b2088e2ff05c603a..148ae9600cf756c746c4f762c19784353c073523 100644 (file)
@@ -405,7 +405,7 @@ specified below.
             /* Get the key from an HE structure and also return
                the length of the key string */
     SV*    hv_iterval(HV*, HE* entry);
-            /* Return a SV pointer to the value of the HE
+            /* Return an SV pointer to the value of the HE
                structure */
     SV*    hv_iternextsv(HV*, char** key, I32* retlen);
             /* This convenience routine combines hv_iternext,
@@ -609,7 +609,7 @@ package.
 
 =head2 Reference Counts and Mortality
 
-Perl uses an reference count-driven garbage collection mechanism. SVs,
+Perl uses a reference count-driven garbage collection mechanism. SVs,
 AVs, or HVs (xV for short in the following) start their life with a
 reference count of 1.  If the reference count of an xV ever drops to 0,
 then it will be destroyed and its memory made available for reuse.
@@ -866,7 +866,7 @@ was initially made magical.
 
 =head2 Magic Virtual Tables
 
-The C<mg_virtual> field in the C<MAGIC> structure is a pointer to a
+The C<mg_virtual> field in the C<MAGIC> structure is a pointer to an
 C<MGVTBL>, which is a structure of function pointers and stands for
 "Magic Virtual Table" to handle the various operations that might be
 applied to that variable.
@@ -1255,7 +1255,7 @@ C<sarg> of C<SV*> of length C<maxsarg>.
 
 =item C<SV* save_svref(SV **sptr)>
 
-Similar to C<save_scalar>, but will reinstate a C<SV *>.
+Similar to C<save_scalar>, but will reinstate an C<SV *>.
 
 =item C<void save_aptr(AV **aptr)>
 
index ee4a0118c86b310a52e2392edfba158d0ae4677f..cde6742746c92527e017c514912185a3d5b243a1 100644 (file)
@@ -169,7 +169,7 @@ The elements we're getting from the array start with a C<$> because
 we're getting just a single value out of the array -- you ask for a scalar, 
 you get a scalar.
 
-To get multiple values from a array:
+To get multiple values from an array:
 
     @animals[0,1];                  # gives ("camel", "llama");
     @animals[0..2];                 # gives ("camel", "llama", "owl");
index 037c9f4a8fca6227d71f59c2e6e9afb6f5b4efe7..a31ffd18479f6ae8183022ca0fb71e0869cf1d89 100644 (file)
@@ -19,7 +19,7 @@ C<USE_SFIO> is not).
 
 The PerlIO abstraction was introduced in perl5.003_02 but languished as
 just an abstraction until perl5.7.0. However during that time a number
-of perl extentions switched to using it, so the API is mostly fixed to
+of perl extensions switched to using it, so the API is mostly fixed to
 maintain (source) compatibility.
 
 The aim of the implementation is to provide the PerlIO API in a flexible
@@ -53,7 +53,7 @@ The basic data structure is a PerlIOl:
         IV             flags;      /* Various flags for state */
        };
 
-A C<PerlIOl *> is a pointer to to the struct, and the I<application> level
+A C<PerlIOl *> is a pointer to the struct, and the I<application> level
 C<PerlIO *> is a pointer to a C<PerlIOl *> - i.e. a pointer to a pointer to
 the struct. This allows the application level C<PerlIO *> to remain
 constant while the actual C<PerlIOl *> underneath changes. (Compare perl's
@@ -214,7 +214,7 @@ not having a buffer layer.
 
 Extra layers can be inserted to process the data as it flows through.
 This was the driving need for including the scheme in perl 5.7.0+ - we
-needed a mechanism to allow data to be translated bewteen perl's
+needed a mechanism to allow data to be translated between perl's
 internal encoding (conceptually at least Unicode as UTF-8), and the
 "native" format used by the system. This is provided by the
 ":encoding(xxxx)" layer which typically sits above the buffering layer.
@@ -248,7 +248,7 @@ Reads are permitted i.e. opened "r" or "w+" (or even "a+" - ick).
 
 =item PERLIO_F_ERROR
 
-An error has occured (for C<PerlIO_error()>)
+An error has occurred (for C<PerlIO_error()>)
 
 =item PERLIO_F_TRUNCATE
 
@@ -305,10 +305,10 @@ Handle is open.
 
 This instance of this layer supports the "fast C<gets>" interface.
 Normally set based on C<PERLIO_K_FASTGETS> for the class and by the
-existance of the function(s) in the table. However a class that
+existence of the function(s) in the table. However a class that
 normally provides that interface may need to avoid it on a
 particular instance. The "pending" layer needs to do this when
-it is pushed above an layer which does not support the interface.
+it is pushed above a layer which does not support the interface.
 (Perl's C<sv_gets()> does not expect the streams fast C<gets> behaviour
 to change during one "get".)
 
@@ -320,7 +320,7 @@ to change during one "get".)
 
 =item  IV              (*Pushed)(PerlIO *f,const char *mode, SV *arg);
 
-The only absoultely mandatory method. Called when the layer is pushed onto the stack.
+The only absolutely mandatory method. Called when the layer is pushed onto the stack.
 The C<mode> argument may  be NULL if this occurs post-open. The C<arg> will be non-C<NULL>
 if an argument string was passed. In most cases this should call
 C<PerlIOBase_pushed()> to convert C<mode> into the appropriate
@@ -366,15 +366,15 @@ The C<'I'> prefix is used during creation of C<stdin>..C<stderr> via special
 C<PerlIO_fdopen> calls; the C<'#'> prefix means that this is C<sysopen> and that I<imode> and
 I<perm> should be passed to C<PerlLIO_open3>; C<'r'> means B<r>ead, C<'w'> means B<w>rite
 and C<'a'> means B<a>ppend. The C<'+'> suffix means that both reading and writing/appending
-are permited. The C<'b'> suffix means file should be binary, and C<'t'> means it
+are permitted. The C<'b'> suffix means file should be binary, and C<'t'> means it
 is text. (Binary/Text should be ignored by almost all layers and binary IO done,
 with PerlIO. The C<:crlf> layer should be pushed to handle the distinction.)
 
-If I<old> is not C<NULL> then this is a C<PerlIO_reopen>. Perl iteself does not use
+If I<old> is not C<NULL> then this is a C<PerlIO_reopen>. Perl itself does not use
 this (yet?) and semantics are a little vague.
 
 If I<fd> not negative then it is the numeric file descriptor I<fd>, which will
-be open in an manner compatible with the supplied mode string, the call is
+be open in a manner compatible with the supplied mode string, the call is
 thus equivalent to C<PerlIO_fdopen>. In this case I<nargs> will be zero.
 
 If I<nargs> is greater than zero then it gives the number of arguments passed
@@ -383,7 +383,7 @@ In simple cases SvPV(*args) is the pathname to open.
 
 Having said all that translation-only layers do not need to provide C<Open()> at all,
 but rather leave the opening to a lower level layer and wait to be "pushed".
-If a layer does provide C<Open()> it should normaly call the C<Open()> method
+If a layer does provide C<Open()> it should normally call the C<Open()> method
 of next layer down (if any) and then push itself on top if that succeeds.
 
 =item SV *             (*Getarg)(PerlIO *f);
@@ -394,7 +394,7 @@ return an SvPV with value "ascii".
 
 =item IV       (*Fileno)(PerlIO *f);
 
-Returns the Unix/Posix numeric file decriptor for the handle. Normally
+Returns the Unix/Posix numeric file descriptor for the handle. Normally
 C<PerlIOBase_fileno()> (which just asks next layer down) will suffice
 for this.
 
@@ -437,7 +437,7 @@ structure.
 
 Should make stream's state consistent with layers below. That is, any
 buffered write data should be written, and file position of lower layers
-adjusted for data read fron below but not actually consumed.
+adjusted for data read from below but not actually consumed.
 (Should perhaps C<Unread()> such data to the lower layer.)
 
 =item  IV              (*Fill)(PerlIO *f);
index 56816b15d6b3a57e826334a2a3e8a1b05b616944..e591f54bf879c31b282c1af2b7874e1e9ca1154d 100644 (file)
@@ -1218,8 +1218,8 @@ clear out.
 
 Once the generic server socket has been created using the parameters
 listed above, the server then waits for a new client to connect
-to it.  The server blocks in the C<accept> method, which eventually an
-bidirectional connection to the remote client.  (Make sure to autoflush
+to it.  The server blocks in the C<accept> method, which eventually accepts a
+bidirectional connection from the remote client.  (Make sure to autoflush
 this handle to circumvent buffering.)
 
 To add to user-friendliness, our server prompts the user for commands.
index 53e491c8a2aab263063be05e273d4dc6a9b0bc70..80ad7c1de56ebe677b365959e11190b678c9e17a 100644 (file)
@@ -990,7 +990,7 @@ system B<man> command, you might try the B<perldoc> program.
 
 Extension modules are written in C (or a mix of Perl and C).  They
 are usually dynamically loaded into Perl if and when you need them,
-but may also be be linked in statically.  Supported extension modules
+but may also be linked in statically.  Supported extension modules
 include Socket, Fcntl, and POSIX.
 
 Many popular C extension modules do not come bundled (at least, not
index a1d3955930c39241045ff42add79b8eb9822f0e7..b158480935db76c7cadd21e949d14f42517ff2a7 100644 (file)
@@ -765,7 +765,7 @@ uses locking and another doesn't, all bets are off.
 
 By default, the C<flock> call will block until a lock is granted.
 A request for a shared lock will be granted as soon as there is no
-exclusive locker.  A request for a exclusive lock will be granted as
+exclusive locker.  A request for an exclusive lock will be granted as
 soon as there is no locker of any kind.  Locks are on file descriptors,
 not file names.  You can't lock a file until you open it, and you can't
 hold on to a lock once the file has been closed.
index 6b6e08d3a455c1ffa314c2de9cdc5ba48aeaae92..46d3ec87074a82b0564cdf17d756c814be64389d 100644 (file)
@@ -758,7 +758,7 @@ the CE<lt>interest rate> attribute...'").
 Pod parsers, when processing a series of verbatim paragraphs one
 after another, should consider them to be one large verbatim
 paragraph that happens to contain blank lines.  I.e., these two
-lines, which have an blank line between them:
+lines, which have a blank line between them:
 
        use Foo;
 
index 4edf7108a664e955e27e865e3af5238c7e6a4522..586913502036fb49a301ccc2b4fc8c253758ff0b 100644 (file)
@@ -559,7 +559,7 @@ often happens when tests spawn off other processes or call external
 programs to aid in the testing, or when (as noted above) the tests
 assume certain things about the filesystem and paths.  Be careful
 not to depend on a specific output style for errors, such as when
-checking C<$!> after an system call.  Some platforms expect a certain
+checking C<$!> after a system call.  Some platforms expect a certain
 output format, and perl on those platforms may have been adjusted
 accordingly.  Most specifically, don't anchor a regex when testing
 an error value.
index 874fed419fc95ef16537459f523affed696e2b5f..6c687495cb0cd973421a74829eb80d7738f9c026 100644 (file)
@@ -1024,7 +1024,7 @@ Some people get too used to writing things like:
 
 This is grandfathered for the RHS of a substitute to avoid shocking the
 B<sed> addicts, but it's a dirty habit to get into.  That's because in
-PerlThink, the righthand side of a C<s///> is a double-quoted string.  C<\1> in
+PerlThink, the righthand side of an C<s///> is a double-quoted string.  C<\1> in
 the usual double-quoted string means a control-A.  The customary Unix
 meaning of C<\1> is kludged in for C<s///>.  However, if you get into the habit
 of doing that, you get yourself into trouble if you then add an C</e>
index e8e9ab78fac8e792eaffc83199b4d6cefebe6a5c..7255162fcd863b503ecf706c23aeae7f44ccb42e 100644 (file)
@@ -31,7 +31,7 @@ have been officially "blessed" into a class package.)
 
 Symbolic references are names of variables or other objects, just as a
 symbolic link in a Unix filesystem contains merely the name of a file.
-The C<*glob> notation is something of a of symbolic reference.  (Symbolic
+The C<*glob> notation is something of a symbolic reference.  (Symbolic
 references are sometimes called "soft references", but please don't call
 them that; references are confusing enough without useless synonyms.)
 
index cc8f5c4c9ba169edfc1a94a9c582655d75acd022..65dfb4782c0b61301da5ef1463738cdb901a7258 100644 (file)
@@ -1415,7 +1415,7 @@ naive regexp
     $dna = "ATCGTTGAATGCAAATGACATGAC";
     $dna =~ /TGA/;
 
-doesn't work; it may match an C<TGA>, but there is no guarantee that
+doesn't work; it may match a C<TGA>, but there is no guarantee that
 the match is aligned with codon boundaries, e.g., the substring
 S<C<GTT GAA> > gives a match.  A better solution is
 
index ca73c5ee099e2980c926d6030b3c06a1c283b078..0d2e6137ad9f7997e72c420a441143b6c94c557d 100644 (file)
@@ -9910,7 +9910,7 @@ Fixed length 32-bit encodings, Multi-byte encodings, "Escape" encodings
 =item Encoding Names
 
 The MIME name as defined in IETF RFC-XXXX, The name in the IANA registry,
-The name used by the the organization that defined it
+The name used by the organization that defined it
 
 =back
 
index 534580ac183373da363229e1f69624413bdea26e..44a7d1030e5cbefbae5cbc7991236225a21b10e8 100644 (file)
@@ -194,7 +194,7 @@ Cozens has some ideas on this.
 
 =head2 DLL Versioning
 
-Windows needs a way to know what version of a XS or C<libperl> DLL it's
+Windows needs a way to know what version of an XS or C<libperl> DLL it's
 loading.
 
 =head2 Introduce @( and @)
index c1622200616d6d747310a47500a8ddd987f3771b..2ba6b42a0bc03562a0d419f414c3290fb14ca264 100644 (file)
@@ -646,7 +646,7 @@ name them whatever you care to.  Blindly and obediently using new()
 for each and every constructor you ever write is to speak Perl with
 such a severe C++ accent that you do a disservice to both languages.
 There's no reason to insist that each class have but one constructor,
-or that that constructor be named new(), or that that constructor be
+or that a constructor be named new(), or that a constructor be
 used solely as a class method and not an object method.
 
 The next section shows how useful it can be to further distance ourselves
index 753e721fcbf0a5c3cb82d7560768edc78ff0e844..262937910db355249a0d107b8762c7092b772999 100644 (file)
@@ -688,7 +688,7 @@ If in doubt:
 
 Assignment of return values from numeric equality tests
 does not work in perl5 when the test evaluates to false (0).
-Logical tests now return an null, instead of 0
+Logical tests now return a null, instead of 0
 
     $p = ($test == 1);
     print $p,"\n";
index 277238e45246b0a4289e16345af5cfeeefe961c7..e56f3ff9dacf650494b8918856e4db1151f2e0dd 100644 (file)
@@ -20,7 +20,7 @@ Other encodings can be converted to perl's encoding on input, or from
 perl's encoding on output by use of the ":encoding(...)" layer.
 See L<open>.
 
-To mark the Perl source itself as being in an particular encoding,
+To mark the Perl source itself as being in a particular encoding,
 see L<encoding>.
 
 =item Regular Expressions
index ab38dcc40c8593582a05746c8449ad214d14450f..cee8e168b053a612010a481ad066e1308b34d03a 100644 (file)
@@ -816,7 +816,7 @@ pointer would not modify the Perl parameter, but is put in the output
 list.
 
 The C<OUTLIST>/C<OUT> parameter differ from C<IN_OUTLIST>/C<IN_OUT>
-parameters only by the the initial value of the Perl parameter not
+parameters only by the initial value of the Perl parameter not
 being read (and not being given to the C function - which gets some
 garbage instead).  For example, the same C function as above can be
 interfaced with as
@@ -1344,7 +1344,7 @@ of C<&>, but provide a pointer to this value when the C function is called.
 
 This is useful to avoid a CODE: block for a C function which takes a parameter
 by reference.  Typically, the parameter should be not a pointer type (an
-C<int> or C<long> but not a C<int*> or C<long*>).
+C<int> or C<long> but not an C<int*> or C<long*>).
 
 The following XSUB will generate incorrect C code.  The B<xsubpp> compiler will
 turn this into code which calls C<rpcb_gettime()> with parameters C<(char
diff --git a/sv.c b/sv.c
index 4045928831e81f1289ddccb83991bfb76bb7128c..997a3a8b261d1f8d8cabfabbf3eeef7fa0d96714 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2163,7 +2163,7 @@ Perl_sv_2iv(pTHX_ register SV *sv)
                    SvIVX(sv) = -(IV)value;
                } else {
                    /* Too negative for an IV.  This is a double upgrade, but
-                      I'm assuming it will be be rare.  */
+                      I'm assuming it will be rare.  */
                    if (SvTYPE(sv) < SVt_PVNV)
                        sv_upgrade(sv, SVt_PVNV);
                    SvNOK_on(sv);
@@ -2454,7 +2454,7 @@ Perl_sv_2uv(pTHX_ register SV *sv)
                    SvIVX(sv) = -(IV)value;
                } else {
                    /* Too negative for an IV.  This is a double upgrade, but
-                      I'm assuming it will be be rare.  */
+                      I'm assuming it will be rare.  */
                    if (SvTYPE(sv) < SVt_PVNV)
                        sv_upgrade(sv, SVt_PVNV);
                    SvNOK_on(sv);
@@ -5900,7 +5900,7 @@ Perl_sv_inc(pTHX_ register SV *sv)
     while (isDIGIT(*d)) d++;
     if (*d) {
 #ifdef PERL_PRESERVE_IVUV
-       /* Got to punt this an an integer if needs be, but we don't issue
+       /* Got to punt this as an integer if needs be, but we don't issue
           warnings. Probably ought to make the sv_iv_please() that does
           the conversion if possible, and silently.  */
        int numtype = grok_number(SvPVX(sv), SvCUR(sv), NULL);
diff --git a/sv.h b/sv.h
index 0c9442a06684f76c4ff2bbc73d8af57c6db97888..7bc11e98639dfecd5e3da0dd19ab9aa87db99e19 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -454,7 +454,7 @@ Returns a boolean indicating whether the SV contains an unsigned integer.
 Returns a boolean indicating whether the SV contains an unsigned integer.
 
 =for apidoc Am|void|SvIOK_notUV|SV* sv
-Returns a boolean indicating whether the SV contains an signed integer.
+Returns a boolean indicating whether the SV contains a signed integer.
 
 =for apidoc Am|bool|SvNOK|SV* sv
 Returns a boolean indicating whether the SV contains a double.
@@ -855,7 +855,7 @@ version which guarantees to evaluate sv only once.
 
 =for apidoc Am|IV|SvIVx|SV* sv
 Coerces the given SV to an integer and returns it. Guarantees to evaluate
-sv only once. Use the more efficent C<SvIV> otherwise.
+sv only once. Use the more efficient C<SvIV> otherwise.
 
 =for apidoc Am|NV|SvNV|SV* sv
 Coerce the given SV to a double and return it. See  C<SvNVx> for a version
@@ -863,7 +863,7 @@ which guarantees to evaluate sv only once.
 
 =for apidoc Am|NV|SvNVx|SV* sv
 Coerces the given SV to a double and returns it. Guarantees to evaluate
-sv only once. Use the more efficent C<SvNV> otherwise.
+sv only once. Use the more efficient C<SvNV> otherwise.
 
 =for apidoc Am|UV|SvUV|SV* sv
 Coerces the given SV to an unsigned integer and returns it.  See C<SvUVx>
@@ -871,7 +871,7 @@ for a version which guarantees to evaluate sv only once.
 
 =for apidoc Am|UV|SvUVx|SV* sv
 Coerces the given SV to an unsigned integer and returns it. Guarantees to
-evaluate sv only once. Use the more efficent C<SvUV> otherwise.
+evaluate sv only once. Use the more efficient C<SvUV> otherwise.
 
 =for apidoc Am|bool|SvTRUE|SV* sv
 Returns a boolean indicating whether Perl would evaluate the SV as true or
@@ -897,22 +897,22 @@ Like C<SvPV_nolen>, but converts sv to byte representation first if necessary.
 
 =for apidoc Am|char*|SvPVutf8x_force|SV* sv|STRLEN len
 Like C<SvPV_force>, but converts sv to utf8 first if necessary.
-Guarantees to evalute sv only once; use the more efficient C<SvPVutf8_force>
+Guarantees to evaluate sv only once; use the more efficient C<SvPVutf8_force>
 otherwise.
 
 =for apidoc Am|char*|SvPVutf8x|SV* sv|STRLEN len
 Like C<SvPV>, but converts sv to utf8 first if necessary.
-Guarantees to evalute sv only once; use the more efficient C<SvPVutf8>
+Guarantees to evaluate sv only once; use the more efficient C<SvPVutf8>
 otherwise.
 
 =for apidoc Am|char*|SvPVbytex_force|SV* sv|STRLEN len
 Like C<SvPV_force>, but converts sv to byte representation first if necessary.
-Guarantees to evalute sv only once; use the more efficient C<SvPVbyte_force>
+Guarantees to evaluate sv only once; use the more efficient C<SvPVbyte_force>
 otherwise.
 
 =for apidoc Am|char*|SvPVbytex|SV* sv|STRLEN len
 Like C<SvPV>, but converts sv to byte representation first if necessary.
-Guarantees to evalute sv only once; use the more efficient C<SvPVbyte>
+Guarantees to evaluate sv only once; use the more efficient C<SvPVbyte>
 otherwise.
 
 
index cc312b7483f10471034dea082bc0d1c8d33f1641..97e81b7c2949128107663cd02a21235b204ed33b 100644 (file)
--- a/unixish.h
+++ b/unixish.h
@@ -86,7 +86,7 @@
  *     as the first line of a Perl program designed to be executed directly
  *     by name, instead of the standard Unix #!.  If ALTERNATE_SHEBANG
  *     begins with a character other then #, then Perl will only treat
- *     it as a command line if if finds the string "perl" in the first
+ *     it as a command line if it finds the string "perl" in the first
  *     word; otherwise it's treated as the first line of code in the script.
  *     (IOW, Perl won't hand off to another interpreter via an alternate
  *     shebang sequence that might be legal Perl code.)
diff --git a/utf8.c b/utf8.c
index 407d382dcc06646e5ac755343552ec7305c25d2c..9d593bdc917b2e1337a7e90054db61d1d035f377 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1197,7 +1197,7 @@ $utf8::ToLower, which is stored in lib/unicore/To/Lower.pl,
 and loaded by SWASHGET, using lib/utf8_heavy.pl.
 
 The "special" is a string like "utf8::ToSpecLower", which means
-the hash %utf8::ToSpecLower, which is stored in in the same file,
+the hash %utf8::ToSpecLower, which is stored in the same file,
 lib/unicore/To/Lower.pl, and also loaded by SWASHGET.  The access
 to the hash is by Perl_to_utf8_case().
 
diff --git a/util.c b/util.c
index f1662c105e3e1ec62d2f6f380304804fe98f25af..5224a559b376577edfc555949a3a321b0115848d 100644 (file)
--- a/util.c
+++ b/util.c
@@ -504,7 +504,7 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
        sv_catpvn(sv, "\n", 1);         /* Taken into account in fbm_instr() */
     s = (U8*)SvPV_force(sv, len);
     (void)SvUPGRADE(sv, SVt_PVBM);
-    if (len == 0)              /* TAIL might be on on a zero-length string. */
+    if (len == 0)              /* TAIL might be on a zero-length string. */
        return;
     if (len > 2) {
        U8 mlen;
index 11200a07e10ef601d98263aaa909003dff7a2c59..6f2d65f40bbfc6fd1db4055fa4fd74529a9c7f69 100644 (file)
@@ -41,9 +41,9 @@ libnetcfg - configure libnet
 
 =head1 DESCRIPTION
 
-The libnetcfg utility can be be used to configure the libnet.
+The libnetcfg utility can be used to configure the libnet.
 Starting from perl 5.8 libnet is part of the standard Perl
-distribution, but the libnetcfg can be be used for any libnet
+distribution, but the libnetcfg can be used for any libnet
 installation.
 
 =head1 USAGE
index 1d64faf7eab6ed127361c16db6feeff53c081e53..565d03388bd79374a077ae66a23a3bfaadee9df6 100644 (file)
@@ -713,7 +713,7 @@ the regular expression.
 
 =item B<-X> use an index if present
 
-The B<-X> option looks for a entry whose basename matches the name given on the
+The B<-X> option looks for an entry whose basename matches the name given on the
 command line in the file C<$Config{archlib}/pod.idx>.  The pod.idx file should
 contain fully qualified filenames, one per line.
 
@@ -723,7 +723,7 @@ Because B<perldoc> does not run properly tainted, and is known to
 have security issues, it will not normally execute as the superuser.
 If you use the B<-U> flag, it will do so, but only after setting
 the effective and real IDs to nobody's or nouser's account, or -2
-if unavailable.  If it cannot relinguish its privileges, it will not
+if unavailable.  If it cannot relinquish its privileges, it will not
 run.  
 
 =item B<PageName|ModuleName|ProgramName>