Fix typos (spelling errors) in ext/*.

# New Ticket Created by  (Peter J. Acklam)
# Please include the string:  [perl #81882]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81882 >

Signed-off-by: Abigail <abigail@abigail.be>

31 files changed, 37 insertions, 37 deletions

diff --git a/ext/B/B.xs b/ext/B/B.xs
index c5d971ba89..c1071c5e33 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1641,7 +1641,7 @@ PV(sv)
 	       to avoid tripping up over variable names in the pads.  */
 	    if((SvLEN(sv) && len >= SvLEN(sv))) {
 		/* It claims to be longer than the space allocated for it -
-		   presuambly it's a variable name in the pad  */
+		   presumably it's a variable name in the pad  */
 		len = strlen(p);
 	    }
 #endif
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 6eae8724c4..3849a18ef6 100644
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -306,7 +306,7 @@ sub compileOpts {
 		if (!$Config::Config{usedl}
 		    && keys %{$pkg.'::'} == 1
 		    && $pkg->can('bootstrap')) {
-		    # It is something that we're staticly linked to, but hasn't
+		    # It is something that we're statically linked to, but hasn't
 		    # yet been used.
 		    eval "require $pkg";
 		}
diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm
index a85c5fcbb3..bae9cb6191 100644
--- a/ext/B/t/OptreeCheck.pm
+++ b/ext/B/t/OptreeCheck.pm
@@ -317,7 +317,7 @@ our %gOpts = 	# values are replaced at runtime !!
      selftest	=> 'self-tests mkCheckRex vs the reference rendering',
 
      fail	=> 'force all test to fail, print to stdout',
-     dump	=> 'dump cmdline arg prcessing',
+     dump	=> 'dump cmdline arg processing',
      noanchors	=> 'dont anchor match rex',
 
      # array values are one-of selections, with 1st value as default
@@ -679,7 +679,7 @@ sub mkCheckRex {
     # make targ args wild
     $str =~ s/\[t\d+\]/[t\\d+]/msg;
 
-    # escape bracing, etc.. manual \Q (doesnt escape '+')
+    # escape bracing, etc.. manual \Q (doesn't escape '+')
     $str =~ s/([\[\]()*.\$\@\#\|{}])/\\$1/msg;
     # $str =~ s/(?<!\\)([\[\]\(\)*.\$\@\#\|{}])/\\$1/msg;
 
diff --git a/ext/B/t/concise-xs.t b/ext/B/t/concise-xs.t
index 9b4232502d..fa120b03bd 100644
--- a/ext/B/t/concise-xs.t
+++ b/ext/B/t/concise-xs.t
@@ -20,7 +20,7 @@ and the stash is scanned for the function-names in that package.
 Each value in %$testpkgs is a hash-of-lists (HoL) whose keys are
 implementation-types and values are lists of function-names of that type.
 
-To keep these HoLs smaller and more managable, they may carry an
+To keep these HoLs smaller and more manageable, they may carry an
 additional 'dflt' => $impl_Type, which means that unnamed functions
 are expected to be of that default implementation type.  Those unnamed
 functions are known from the scan of the package stash.
@@ -38,7 +38,7 @@ If a function is implemented differently on different platforms, the
 test for that function will fail on one of those platforms.  These
 specific functions can be skipped by a 'skip' => [ @list ] to the HoL
 mentioned previously.  See usage for skip in B's HoL, which avoids
-testing a function which doesnt exist on non-threaded builds.
+testing a function which doesn't exist on non-threaded builds.
 
 =head1 OPTIONS AND ARGUMENTS
 
diff --git a/ext/B/t/optree_concise.t b/ext/B/t/optree_concise.t
index 00a78498ee..22a3ff85cf 100644
--- a/ext/B/t/optree_concise.t
+++ b/ext/B/t/optree_concise.t
@@ -353,7 +353,7 @@ sub set_up_relative_test {
 		$h->{arg} .= ' RELATIVE' if $h->{name} eq 'leavesub';
 	    }
 	    elsif ($style eq 'scope') {
-		# supress printout entirely
+		# suppress printout entirely
 		$$format="" unless grep { $h->{name} eq $_ } @scopeops;
 	    }
 	});
diff --git a/ext/B/t/optree_varinit.t b/ext/B/t/optree_varinit.t
index f748ab8ca0..5271a658fd 100644
--- a/ext/B/t/optree_varinit.t
+++ b/ext/B/t/optree_varinit.t
@@ -240,7 +240,7 @@ EONT_EONT
 checkOptree ( name	=> 'local $a=undef',
 	      prog	=> 'local $a=undef',
 	      errs      => ['Name "main::a" used only once: possible typo at -e line 1.'],
-	      note	=> 'locals are rare, probly not worth doing',
+	      note	=> 'locals are rare, probably not worth doing',
 	      bcopts	=> '-basic',
 	      strip_open_hints => 1,
 	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
diff --git a/ext/Devel-Peek/Changes b/ext/Devel-Peek/Changes
index e87a7ca1c4..39bbf918da 100644
--- a/ext/Devel-Peek/Changes
+++ b/ext/Devel-Peek/Changes
@@ -2,7 +2,7 @@
 0.4: Hashes dumped recursively.
      Additional fields for CV added.
 0.5: Prototypes for functions supported. 
-     Strings are consostently in quotes now.
+     Strings are consistently in quotes now.
      Name changed to Devel::Peek (former ExtUtils::Peek).
 0.7:
 	New function mstat added.
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 60fe495117..ee0faa25f1 100644
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -48,7 +48,7 @@ sub do_test {
 	    # things like $IVNV gave the illusion that the string passed in was
 	    # a regexp into which variables were interpolated, but this wasn't
 	    # actually true as those 'variables' actually also ate the
-	    # whitspace on the line. So it seems better to mark lines that
+	    # whitespace on the line. So it seems better to mark lines that
 	    # need to be eliminated. I considered (?# ... ) and (?{ ... }),
 	    # but whilst embedded code or comment syntax would keep it as a
 	    # legitimate regexp, it still isn't true. Seems easier and clearer
@@ -122,7 +122,7 @@ do_test('immediate constant (string)',
   CUR = 3
   LEN = \\d+');
 
-do_test('assigment of immediate constant (integer)',
+do_test('assignment of immediate constant (integer)',
         $b = 123,
 'SV = IV\\($ADDR\\) at $ADDR
   REFCNT = 1
@@ -660,7 +660,7 @@ do_test('FORMAT',
     PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\)
     OUTSIDE = $ADDR \\(MAIN\\)');
 
-do_test('blessing to a class with embeded NUL characters',
+do_test('blessing to a class with embedded NUL characters',
         (bless {}, "\0::foo::\n::baz::\t::\0"),
 'SV = $RV\\($ADDR\\) at $ADDR
   REFCNT = 1
diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs
index eac313f8cb..6d24428942 100644
--- a/ext/DynaLoader/dl_aix.xs
+++ b/ext/DynaLoader/dl_aix.xs
@@ -8,7 +8,7 @@
  *
  *  I did change all malloc's, free's, strdup's, calloc's to use the perl
  *  equilvant.  I also removed some stuff we will not need.  Call fini()
- *  on statup...   It can probably be trimmed more.
+ *  on startup...   It can probably be trimmed more.
  */
 
 #define PERLIO_NOT_STDIO 0
diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs
index dfa9d0675a..21a8ef50d3 100644
--- a/ext/DynaLoader/dl_dlopen.xs
+++ b/ext/DynaLoader/dl_dlopen.xs
@@ -10,7 +10,7 @@
  * 9th August 1994    - Changed to use IV
  * 10th August 1994   - Tim Bunce: Added RTLD_LAZY, switchable debugging,
  *                      basic FreeBSD support, removed ClearError
- * 29th Feburary 2000 - Alan Burlison: Added functionality to close dlopen'd
+ * 29th February 2000 - Alan Burlison: Added functionality to close dlopen'd
  *                      files when the interpreter exits
  *
  */
diff --git a/ext/DynaLoader/dl_vmesa.xs b/ext/DynaLoader/dl_vmesa.xs
index 02bb0b26ad..bf84322849 100644
--- a/ext/DynaLoader/dl_vmesa.xs
+++ b/ext/DynaLoader/dl_vmesa.xs
@@ -2,7 +2,7 @@
  *
  * Platform:	VM/ESA, possibly others which use dllload etc.
  * Author:	Neale Ferguson (neale@mailbox.tabnsw.com.au)
- * Created:	23rd Septemer, 1998
+ * Created:	23rd September, 1998
  *
  *
  */
diff --git a/ext/File-Glob/bsd_glob.c b/ext/File-Glob/bsd_glob.c
index db36007b0f..f891d29c0c 100644
--- a/ext/File-Glob/bsd_glob.c
+++ b/ext/File-Glob/bsd_glob.c
@@ -815,7 +815,7 @@ glob3(Char *pathbuf, Char *pathbuf_last, Char *pathend, Char *pathend_last,
 
 
 /*
- * Extend the gl_pathv member of a glob_t structure to accomodate a new item,
+ * Extend the gl_pathv member of a glob_t structure to accommodate a new item,
  * add the new item, and update gl_pathc.
  *
  * This assumes the BSD realloc, which only copies the block when its size
diff --git a/ext/Hash-Util-FieldHash/lib/Hash/Util/FieldHash.pm b/ext/Hash-Util-FieldHash/lib/Hash/Util/FieldHash.pm
index cf6503674a..2414649b7c 100644
--- a/ext/Hash-Util-FieldHash/lib/Hash/Util/FieldHash.pm
+++ b/ext/Hash-Util-FieldHash/lib/Hash/Util/FieldHash.pm
@@ -753,7 +753,7 @@ incompatibility of object bodies.
 =head1 GUTS
 
 To make C<Hash::Util::FieldHash> work, there were two changes to
-F<perl> itself.  C<PERL_MAGIC_uvar> was made avalaible for hashes,
+F<perl> itself.  C<PERL_MAGIC_uvar> was made available for hashes,
 and weak references now call uvar C<get> magic after a weakref has been
 cleared.  The first feature is used to make field hashes intercept
 their keys upon access.  The second one triggers garbage collection.
diff --git a/ext/Hash-Util-FieldHash/t/11_hashassign.t b/ext/Hash-Util-FieldHash/t/11_hashassign.t
index 8e2581173e..e492fa228f 100644
--- a/ext/Hash-Util-FieldHash/t/11_hashassign.t
+++ b/ext/Hash-Util-FieldHash/t/11_hashassign.t
@@ -12,7 +12,7 @@ my @comma = ("key", "value");
 # The peephole optimiser already knows that it should convert the string in
 # $foo{string} into a shared hash key scalar. It might be worth making the
 # tokeniser build the LHS of => as a shared hash key scalar too.
-# And so there's the possiblility of it going wrong
+# And so there's the possibility of it going wrong
 # And going right on 8 bit but wrong on utf8 keys.
 # And really we should also try utf8 literals in {} and => in utf8.t
 
diff --git a/ext/IPC-Open3/lib/IPC/Open3.pm b/ext/IPC-Open3/lib/IPC/Open3.pm
index 658a12efeb..983d1a662e 100644
--- a/ext/IPC-Open3/lib/IPC/Open3.pm
+++ b/ext/IPC-Open3/lib/IPC/Open3.pm
@@ -172,7 +172,7 @@ sub xclose_on_exec {
 }
 
 # I tried using a * prototype character for the filehandle but it still
-# disallows a bearword while compiling under strict subs.
+# disallows a bareword while compiling under strict subs.
 
 sub xopen {
     open $_[0], $_[1] or croak "$Me: open($_[0], $_[1]) failed: $!";
diff --git a/ext/IPC-Open3/t/IPC-Open3.t b/ext/IPC-Open3/t/IPC-Open3.t
index 9bc80da1dc..a29b5509f9 100644
--- a/ext/IPC-Open3/t/IPC-Open3.t
+++ b/ext/IPC-Open3/t/IPC-Open3.t
@@ -147,7 +147,7 @@ else {
 $TB->current_test($test);
 
 # RT 72016
-eval{$pid = open3 'WRITE', 'READ', 'ERROR', '/non/existant/program'; };
+eval{$pid = open3 'WRITE', 'READ', 'ERROR', '/non/existent/program'; };
 if (IPC::Open3::DO_SPAWN) {
     if ($@) {
 	cmp_ok(waitpid($pid, 0), '>', 0);
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
index 1e5f8c22db..587c2994ee 100644
--- a/ext/Opcode/Opcode.xs
+++ b/ext/Opcode/Opcode.xs
@@ -89,7 +89,7 @@ put_op_bitspec(pTHX_ const char *optag, STRLEN len, SV *mask)
 
 /* Fetch a 'bits' entry for an opname or optag (IV/PV).
  * Note that we return the actual entry for speed.
- * Always sv_mortalcopy() if returing it to user code.
+ * Always sv_mortalcopy() if returning it to user code.
  */
 
 static SV *
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 92ab1bcded..239f0dd042 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -586,7 +586,7 @@ restore_sigmask(pTHX_ SV *osset_sv)
  *
  * Note that we don't free() the malloc()ed memory unless and until we call
  * malloc() again ourselves because the CRT putenv() function simply puts its
- * pointer argument into the environ[] arrary (it doesn't make a copy of it)
+ * pointer argument into the environ[] array (it doesn't make a copy of it)
  * so this memory must otherwise be leaked.
  */
 
diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm
index b86f2a9f14..bcfd1aabb0 100644
--- a/ext/POSIX/lib/POSIX.pm
+++ b/ext/POSIX/lib/POSIX.pm
@@ -907,7 +907,7 @@ sub load_imports {
   my %export;
   @export{map {@$_} values %EXPORT_TAGS} = ();
   # Doing the de-dup with a temporary hash has the advantage that the SVs in
-  # @EXPORT are actually shared hash key sacalars, which will save some memory.
+  # @EXPORT are actually shared hash key scalars, which will save some memory.
   push @EXPORT, keys %export;
 }
 
diff --git a/ext/POSIX/t/math.t b/ext/POSIX/t/math.t
index 29236898ca..e04cc302c1 100644
--- a/ext/POSIX/t/math.t
+++ b/ext/POSIX/t/math.t
@@ -5,7 +5,7 @@ use strict;
 use POSIX;
 use Test::More tests => 14;
 
-# These tests are mainly to make sure that these arithmatic functions
+# These tests are mainly to make sure that these arithmetic functions
 # exist and are accessible.  They are not meant to be an exhaustive
 # test for the interface.
 
diff --git a/ext/POSIX/t/time.t b/ext/POSIX/t/time.t
index dad1f6a310..74d44969d6 100644
--- a/ext/POSIX/t/time.t
+++ b/ext/POSIX/t/time.t
@@ -42,7 +42,7 @@ if ($^O eq "hpux" && $Config{osvers} >= 11.3) {
 is(asctime(localtime(0)), ctime(0), "asctime() and ctime() at zero");
 is(asctime(localtime(12345678)), ctime(12345678), "asctime() and ctime() at 12345678");
 
-# Careful!  strftime() is locale sensative.  Let's take care of that
+# Careful!  strftime() is locale sensitive.  Let's take care of that
 my $orig_loc = setlocale(LC_TIME, "C") || die "Cannot setlocale() to C:  $!";
 my $jan_16 = 15 * 86400;
 is(ctime($jan_16), strftime("%a %b %d %H:%M:%S %Y\n", localtime($jan_16)),
diff --git a/ext/SDBM_File/sdbm/biblio b/ext/SDBM_File/sdbm/biblio
index 0be09fa005..f2880dc490 100644
--- a/ext/SDBM_File/sdbm/biblio
+++ b/ext/SDBM_File/sdbm/biblio
@@ -52,7 +52,7 @@
 %K torek
 
 %A Rich Wales
-%T Discusson of "dbm" data base system
+%T Discussion of "dbm" data base system
 %B USENET newsgroup unix.wizards
 %D Jan. 1984
 %K rich
diff --git a/ext/SDBM_File/sdbm/dbe.c b/ext/SDBM_File/sdbm/dbe.c
index 166e64efdf..f2aa29075a 100644
--- a/ext/SDBM_File/sdbm/dbe.c
+++ b/ext/SDBM_File/sdbm/dbe.c
@@ -286,7 +286,7 @@ main(int argc, char **argv)
 	}
 
 	if (giveusage || what == YOW || argn < 1) {
-		fprintf(stderr, "Usage: %s databse [-m r|w|rw] [-crtx] -a|-d|-f|-F|-s [key [content]]\n", argv[0]);
+		fprintf(stderr, "Usage: %s database [-m r|w|rw] [-crtx] -a|-d|-f|-F|-s [key [content]]\n", argv[0]);
 		exit(-1);
 	}
 
diff --git a/ext/SDBM_File/sdbm/sdbm.3 b/ext/SDBM_File/sdbm/sdbm.3
index fe6fe76e25..25afcbe4fe 100644
--- a/ext/SDBM_File/sdbm/sdbm.3
+++ b/ext/SDBM_File/sdbm/sdbm.3
@@ -186,7 +186,7 @@ you notice clustering or other effects that may be due to the hashing
 algorithm used by this package, you can override it by supplying your
 own
 .BR sdbm_hash (\|)
-routine.  Doing so will make the database unintelligable to any other
+routine.  Doing so will make the database unintelligible to any other
 applications that do not use your specialized hash function.
 .sp
 .LP
diff --git a/ext/SDBM_File/sdbm/sdbm.c b/ext/SDBM_File/sdbm/sdbm.c
index c5f7aa8059..c554e527ea 100644
--- a/ext/SDBM_File/sdbm/sdbm.c
+++ b/ext/SDBM_File/sdbm/sdbm.c
@@ -84,7 +84,7 @@ sdbm_open(register char *file, register int flags, register int mode)
 	if (file == NULL || !*file)
 		return errno = EINVAL, (DBM *) NULL;
 /*
- * need space for two seperate filenames
+ * need space for two separate filenames
  */
 	filelen = strlen(file);
 
@@ -306,7 +306,7 @@ makroom(register DBM *db, long int hash, int need)
 		newp = (hash & db->hmask) | (db->hmask + 1);
 
 /*
- * write delay, read avoidence/cache shuffle:
+ * write delay, read avoidance/cache shuffle:
  * select the page for incoming pair: if key is to go to the new page,
  * write out the previous one, and copy the new one over, thus making
  * it the current page. If not, simply write the new page, and we are
diff --git a/ext/Socket/Socket.pm b/ext/Socket/Socket.pm
index a34fa773ef..c747e4b722 100644
--- a/ext/Socket/Socket.pm
+++ b/ext/Socket/Socket.pm
@@ -213,7 +213,7 @@ the name of a host, and translates that to an opaque string
 (if programming in C, struct in_addr or struct in6_addr depending on the 
 address family passed in).  The host string may be a string hostname, such
 as 'www.perl.org', or an IP address.  If using an IP address, the type of
-IP address must be consistant with the address family passed into the function.
+IP address must be consistent with the address family passed into the function.
 
 This function is not exported by default.
 
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs
index dda137f72d..0ce4d513dc 100644
--- a/ext/XS-APItest/APItest.xs
+++ b/ext/XS-APItest/APItest.xs
@@ -466,7 +466,7 @@ test_op_list_describe(OP *o)
     return SvPVX(res);
 }
 
-/* the real new*OP functions have a tendancy to call fold_constants, and
+/* the real new*OP functions have a tendency to call fold_constants, and
  * other such unhelpful things, so we need our own versions for testing */
 
 #define mkUNOP(t, f) THX_mkUNOP(aTHX_ (t), (f))
diff --git a/ext/XS-APItest/exception.c b/ext/XS-APItest/exception.c
index 01ff912a2a..c0de7ec488 100644
--- a/ext/XS-APItest/exception.c
+++ b/ext/XS-APItest/exception.c
@@ -10,8 +10,8 @@ static void throws_exception(int throw_e)
     croak("boo\n");
 }
 
-/* Don't give this the same name as exection() in ext/Devel/PPPort/module3.c
-   as otherwise building entirely staticly will cause a test to fail, as
+/* Don't give this the same name as execution() in ext/Devel/PPPort/module3.c
+   as otherwise building entirely statically will cause a test to fail, as
    PPPort's execption() gets used in place of this one.  */
    
 int apitest_exception(int throw_e)
diff --git a/ext/XS-APItest/t/my_cxt.t b/ext/XS-APItest/t/my_cxt.t
index 4f890bcfca..d2d60555f7 100644
--- a/ext/XS-APItest/t/my_cxt.t
+++ b/ext/XS-APItest/t/my_cxt.t
@@ -1,6 +1,6 @@
 #!perl -w
 
-# test per-interpeter static data API (MY_CXT)
+# test per-interpreter static data API (MY_CXT)
 # DAPM Dec 2005
 
 my $threads;
diff --git a/ext/mro/mro.xs b/ext/mro/mro.xs
index fb28399f77..76a91ae07c 100644
--- a/ext/mro/mro.xs
+++ b/ext/mro/mro.xs
@@ -95,7 +95,7 @@ S_mro_get_linear_isa_c3(pTHX_ HV* stash, U32 level)
 		if(items == 0 && AvFILLp(seqs) == -1) {
 		    /* Only one parent class. For this case, the C3
 		       linearisation is this class followed by the parent's
-		       inearisation, so don't bother with the expensive
+		       linearisation, so don't bother with the expensive
 		       calculation.  */
 		    SV **svp;
 		    I32 subrv_items = AvFILLp(isa_lin) + 1;
diff --git a/ext/re/t/regop.t b/ext/re/t/regop.t
index c24c32f95c..e3ead69cfe 100644
--- a/ext/re/t/regop.t
+++ b/ext/re/t/regop.t
@@ -51,7 +51,7 @@ foreach my $testout ( @tests ) {
 # The format below is simple. Each line is an exact
 # string that must be found in the output.
 # Lines starting the # are comments.
-# Lines starting with --- are seperators indicating
+# Lines starting with --- are separators indicating
 # that the tests for this result set are finished.
 # If you add a test make sure you update $NUM_SECTS
 # the commented output is just for legacy/debugging purposes