Fix typos (spelling errors) in lib/*

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

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

26 files changed, 63 insertions, 63 deletions

diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index 269674cfda..7f0f21c8e2 100644
--- a/lib/Benchmark.pm
+++ b/lib/Benchmark.pm
@@ -245,7 +245,7 @@ B<NOTE>: This result value differs from previous versions, which returned
 the C<timethese()> result structure.  If you want that, just use the two
 statement C<timethese>...C<cmpthese> idiom shown above.
 
-Incidently, note the variance in the result values between the two examples;
+Incidentally, note the variance in the result values between the two examples;
 this is typical of benchmarking.  If this were a real benchmark, you would
 probably want to run a lot more iterations.
 
@@ -318,7 +318,7 @@ calls like these:
     enablecache();
 
 Caching is off by default, as it can (usually slightly) decrease
-accuracy and does not usually noticably affect runtimes.
+accuracy and does not usually noticeably affect runtimes.
 
 =head1 EXAMPLES
 
@@ -749,7 +749,7 @@ sub countit {
 	# The 5% fudge is to keep us from iterating again all
 	# that often (this speeds overall responsiveness when $tmax is big
 	# and we guess a little low).  This does not noticably affect 
-	# accuracy since we're not couting these times.
+	# accuracy since we're not counting these times.
 	$n = int( $tpra * 1.05 * $n / $tc ); # Linear approximation.
 	my $td = timeit($n, $code);
 	my $new_tc = $td->[1] + $td->[2];
diff --git a/lib/Benchmark.t b/lib/Benchmark.t
index 9b8e2af1d9..73e09c6f51 100644
--- a/lib/Benchmark.t
+++ b/lib/Benchmark.t
@@ -28,7 +28,7 @@ my $Noc_Pattern =
     qr/(\d+) +wallclock secs? +\( *(-?\d+\.\d\d) +usr +\+ +(-?\d+\.\d\d) +sys += +(-?\d+\.\d\d) +CPU\)/;
 my $Nop_Pattern =
     qr/(\d+) +wallclock secs? +\( *(-?\d+\.\d\d) +cusr +\+ +(-?\d+\.\d\d) +csys += +\d+\.\d\d +CPU\)/;
-# Please don't trust the matching parenthises to be useful in this :-)
+# Please don't trust the matching parentheses to be useful in this :-)
 my $Default_Pattern = qr/$All_Pattern|$Noc_Pattern/;
 
 my $t0 = new Benchmark;
@@ -111,7 +111,7 @@ is ($auto, $default, 'timestr ($diff, "auto") matches timestr ($diff)');
 
     my ($wallclock, $usr, $sys, $cusr, $csys, $cpu) = $all =~ $All_Pattern;
 
-    is (timestr ($diff, 'none'), '', "none supresses output");
+    is (timestr ($diff, 'none'), '', "none suppresses output");
 
     my $noc = timestr ($diff, 'noc');
     like ($noc, qr/$wallclock +wallclock secs? +\( *$usr +usr +\+ +$sys +sys += +$cpu +CPU\)/, 'timestr ($diff, "noc")');
@@ -529,7 +529,7 @@ undef $debug;
 untie *STDERR;
 
 # To check the cache we are poking where we don't belong, inside the namespace.
-# The way benchmark is written We can't actually check whehter the cache is
+# The way benchmark is written we can't actually check whether the cache is
 # being used, merely what's become cached.
 
 clearallcache();
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm
index da9e07bbda..0f8bbc2172 100644
--- a/lib/File/Basename.pm
+++ b/lib/File/Basename.pm
@@ -166,7 +166,7 @@ sub fileparse {
     }
   }
 
-  # Ensure taint is propgated from the path to its pieces.
+  # Ensure taint is propagated from the path to its pieces.
   $tail .= $taint;
   wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
             : ($basename .= $taint);
diff --git a/lib/File/DosGlob.pm b/lib/File/DosGlob.pm
index ac25979584..29d2efc797 100644
--- a/lib/File/DosGlob.pm
+++ b/lib/File/DosGlob.pm
@@ -306,7 +306,7 @@ sub glob {
 		my $tmp = "$start$match$end";
 		while ( $tmp =~ s/^(.*?)(?<!\\)\{(?:.*(?<!\\)\,)?(.*\Q$match\E.*?)(?:(?<!\\)\,.*)?(?<!\\)\}(.*)$/$1$2$3/ ) {
 		    #print "Striped: $tmp\n";
-		    #  these expanshions will be preformed by the original,
+		    #  these expansions will be preformed by the original,
 		    #  when we call REHASH.
 		}
 		push @appendpat, ("$tmp");
diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 92fe6367e4..2b00bf0e25 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -8,7 +8,7 @@ require Exporter;
 require Cwd;
 
 #
-# Modified to ensure sub-directory traversal order is not inverded by stack
+# Modified to ensure sub-directory traversal order is not inverted by stack
 # push and pops.  That is remains in the same order as in the directory file,
 # or user pre-processing (EG:sorted).
 #
@@ -847,7 +847,7 @@ sub _find_dir($$$) {
 	@filenames = $pre_process->(@filenames) if $pre_process;
 	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
 
-	# default: use whatever was specifid
+	# default: use whatever was specified
         # (if $nlink >= 2, and $avoid_nlink == 0, this will switch back)
         $no_nlink = $avoid_nlink;
         # if dir has wrong nlink count, force switch to slower stat method
diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index 9cb4a3fa45..8db0b774f4 100644
--- a/lib/File/stat.pm
+++ b/lib/File/stat.pm
@@ -84,7 +84,7 @@ else {
         my ($s, $mode, $eff) = @_;
         my $uid = $eff ? $> : $<;
 
-        # If we're root on unix and we are not testing for exectable
+        # If we're root on unix and we are not testing for executable
         # status, then all file tests are true.
         $^O ne "VMS" and $uid == 0 and !($mode & 0111) and return 1;
 
diff --git a/lib/File/stat.t b/lib/File/stat.t
index 40bd86bd19..0646ebdcd6 100644
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -93,7 +93,7 @@ for (split //, "rwxoRWXOezsfdlpSbcugkMCA") {
 
 SKIP: {
     my $file = '../perl';
-    -e $file && -x $file or skip "$file is not present and exectable", 4;
+    -e $file && -x $file or skip "$file is not present and executable", 4;
     $^O eq "VMS" and skip "File::stat ignores VMS ACLs", 4;
 
     my $stat = File::stat::stat( $file ); # This is the OO stat.
diff --git a/lib/Pod/t/InputObjects.t b/lib/Pod/t/InputObjects.t
index 0beeb4e5d4..515645a43b 100644
--- a/lib/Pod/t/InputObjects.t
+++ b/lib/Pod/t/InputObjects.t
@@ -31,7 +31,7 @@ use_ok( 'Pod::InputObjects' );
 { # test package Pod::Paragraph
     my $p_p1 = Pod::Paragraph->new( -text => 'NAME', -name => 'head2' );
     my $p_p2 = Pod::Paragraph->new( 'test - This is the test suite' );
-    isa_ok( $p_p1, 'Pod::Paragraph', 'Pod::Paragraph constuctor' );
+    isa_ok( $p_p1, 'Pod::Paragraph', 'Pod::Paragraph constructor' );
     isa_ok( $p_p2, 'Pod::Paragraph', 'Pod::Paragraph constructor revisited' );
 
     is( $p_p1->cmd_name(), 'head2', 'Pod::Paragraph->cmd_name()' );
diff --git a/lib/Tie/Handle/stdhandle_from_handle.t b/lib/Tie/Handle/stdhandle_from_handle.t
index 71eb608f1f..0e95e5c819 100644
--- a/lib/Tie/Handle/stdhandle_from_handle.t
+++ b/lib/Tie/Handle/stdhandle_from_handle.t
@@ -14,5 +14,5 @@ use Tie::Handle;
     @ISA = qw(Tie::StdHandle);
 }
 
-# For backwards compatabilty with 5.8.x
+# For backwards compatibility with 5.8.x
 ok( Foo->can("TIEHANDLE"), "loading Tie::Handle loads TieStdHandle" );
diff --git a/lib/UNIVERSAL.pm b/lib/UNIVERSAL.pm
index 89604626c4..f314d9c582 100644
--- a/lib/UNIVERSAL.pm
+++ b/lib/UNIVERSAL.pm
@@ -99,7 +99,7 @@ If you're not sure what you have (the C<VAL> case), wrap the method call in an
 C<eval> block to catch the exception if C<VAL> is undefined.
 
 If you want to be sure that you're calling C<isa> as a method, not a class,
-check the invocant with C<blessed> from L<Scalar::Util> first:
+check the invocand with C<blessed> from L<Scalar::Util> first:
 
   use Scalar::Util 'blessed';
 
@@ -119,7 +119,7 @@ itself.  For example, logging or serialization may be roles.
 C<DOES> and C<isa> are similar, in that if either is true, you know that the
 object or class on which you call the method can perform specific behavior.
 However, C<DOES> is different from C<isa> in that it does not care I<how> the
-invocant performs the operations, merely that it does.  (C<isa> of course
+invocand performs the operations, merely that it does.  (C<isa> of course
 mandates an inheritance relationship.  Other relationships include aggregation,
 delegation, and mocking.)
 
@@ -157,7 +157,7 @@ calling the coderef will cause an error.
 
 You may call C<can> as a class (static) method or an object method.
 
-Again, the same rule about having a valid invocant applies -- use an C<eval>
+Again, the same rule about having a valid invocand applies -- use an C<eval>
 block or C<blessed> if you need to be extra paranoid.
 
 =item C<VERSION ( [ REQUIRE ] )>
diff --git a/lib/bigint.pl b/lib/bigint.pl
index cf915f7a6c..6de1c53fcf 100644
--- a/lib/bigint.pl
+++ b/lib/bigint.pl
@@ -167,7 +167,7 @@ sub main'bsub { #(num_str, num_str) return num_str
     &'badd($_[0],&'bneg($_[1]));    
 }
 
-# GCD -- Euclids algorithm Knuth Vol 2 pg 296
+# GCD -- Euclid's algorithm Knuth Vol 2 pg 296
 sub main'bgcd { #(num_str, num_str) return num_str
     local($x,$y) = (&'bnorm($_[0]),&'bnorm($_[1]));
     if ($x eq 'NaN' || $y eq 'NaN') {
diff --git a/lib/bigrat.pl b/lib/bigrat.pl
index 36c283cd88..aaf17136c3 100644
--- a/lib/bigrat.pl
+++ b/lib/bigrat.pl
@@ -28,7 +28,7 @@ require "bigint.pl";
 # The string 'NaN' is used to represent the result when input arguments 
 #   that are not numbers, as well as the result of dividing by zero and
 #       the sqrt of a negative number.
-# Extreamly naive algorthims are used.
+# Extremely naive algorithms are used.
 #
 # Routines provided are:
 #
diff --git a/lib/charnames.pm b/lib/charnames.pm
index 750b1cf3d3..853d4ff496 100644
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -626,7 +626,7 @@ sub lookup_name ($$$) {
         }
         else {
 
-          # Not algorthmically determinable; look up in the table.
+          # Not algorithmically determinable; look up in the table.
           if ($txt =~ /\t\Q$name\E$/m) {
             @off = ($-[0] + 1, $+[0]);    # The 1 is for the tab
             $found_full_in_table = 1;
@@ -669,9 +669,9 @@ sub lookup_name ($$$) {
 
         # Here, we haven't set up the output, but we know where in the string
         # the name starts.  The string is set up so that for single characters
-        # (and not named sequences), the name is preceeded immediately by a
+        # (and not named sequences), the name is preceded immediately by a
         # tab and 5 hex digits for its code, with a \n before those.  Named
-        # sequences won't have the 7th preceeding character be a \n.
+        # sequences won't have the 7th preceding character be a \n.
         # (Actually, for the very first entry in the table this isn't strictly
         # true: subtracting 7 will yield -1, and the substr below will
         # therefore yield the very last character in the table, which should
diff --git a/lib/charnames.t b/lib/charnames.t
index f44c8059b9..c5d2a8da34 100644
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -661,7 +661,7 @@ is($_, 'foobar');
 
 # Unicode slowdown noted by Phil Pennock, traced to a bug fix in index
 # SADAHIRO Tomoyuki's suggestion is to ensure that the UTF-8ness of both
-# arguments are indentical before calling index.
+# arguments are identical before calling index.
 # To do this can take advantage of the fact that unicore/Name.pl is 7 bit
 # (or at least should be). So assert that that it's true here.  EBCDIC
 # may be a problem (khw).
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index f694e3f427..71b2cbc277 100644
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -554,7 +554,7 @@ sub splainthis {
     s/, <.*?> (?:line|chunk).*$//;
 
     # Discard 1st " at <file> line <no>" and all text beyond
-    # but be aware of messsages containing " at this-or-that"
+    # but be aware of messages containing " at this-or-that"
     my $real = 0;
     my @secs = split( / at / );
     return unless @secs;
diff --git a/lib/exceptions.pl b/lib/exceptions.pl
index 2ae8d4e2c2..8af64c8a1b 100644
--- a/lib/exceptions.pl
+++ b/lib/exceptions.pl
@@ -12,7 +12,7 @@ warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core dist
 # programming techniques.
 
 # Here's a little code I use for exception handling.  It's really just
-# glorfied eval/die.  The way to use use it is when you might otherwise
+# glorified eval/die.  The way to use use it is when you might otherwise
 # exit, use &throw to raise an exception.  The first enclosing &catch
 # handler looks at the exception and decides whether it can catch this kind
 # (catch takes a list of regexps to catch), and if so, it returns the one it
diff --git a/lib/locale.t b/lib/locale.t
index d84c6c40d2..68a4d606cf 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -258,7 +258,7 @@ debug "# Scanning for locales...\n";
 # Note that it's okay that some languages have their native names
 # capitalized here even though that's not "right".  They are lowercased
 # anyway later during the scanning process (and besides, some clueless
-# vendor might have them capitalized errorneously anyway).
+# vendor might have them capitalized erroneously anyway).
 
 my $locales = <<EOF;
 Afrikaans:af:za:1 15
diff --git a/lib/newgetopt.pl b/lib/newgetopt.pl
index 34a13ad499..4ac9470088 100644
--- a/lib/newgetopt.pl
+++ b/lib/newgetopt.pl
@@ -18,7 +18,7 @@ warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core dist
     $PERMUTE = 1;
     $RETURN_IN_ORDER = 2;
 
-    # Handle POSIX compliancy.
+    # Handle POSIX compliance.
     if ( defined $ENV{"POSIXLY_CORRECT"} ) {
 	$autoabbrev = 0;	# no automatic abbrev of options (???)
 	$getopt_compat = 0;	# disallow '+' to start options
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 041218399f..ea0d049a78 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -890,7 +890,7 @@ sub eval {
 #   + Forgot a my() declaration (Ilya Zakharevich in 11085)
 # Changes: 1.15: Nov  6, 2001 Michael G Schwern <schwern@pobox.com>
 #   + Updated 1.14 change log
-#   + Added *dbline explainatory comments
+#   + Added *dbline explanatory comments
 #   + Mentioning perldebguts man page
 # Changes: 1.16: Feb 15, 2002 Mark-Jason Dominus <mjd@plover.com>
 #   + $onetimeDump improvements
@@ -984,7 +984,7 @@ terminates, and defaulting to printing return values for the C<r> command.
 # Needed for the statement after exec():
 #
 # This BEGIN block is simply used to switch off warnings during debugger
-# compiliation. Probably it would be better practice to fix the warnings,
+# compilation. Probably it would be better practice to fix the warnings,
 # but this is how it's done at the moment.
 
 BEGIN {
@@ -2809,7 +2809,7 @@ appropriately, and force us out of the command loop.
                 # r - return from the current subroutine.
                 $cmd =~ /^r$/ && do {
 
-                    # Can't do anythign if the program's over.
+                    # Can't do anything if the program's over.
                     end_report(), next CMD if $finished and $level <= 1;
 
                     # Turn on stack trace.
@@ -3225,7 +3225,7 @@ Manipulates C<%alias> to add or list command aliases.
                     # List aliases.
                     for my $k (@keys) {
 
-                        # Messy metaquoting: Trim the substiution code off.
+                        # Messy metaquoting: Trim the substitution code off.
                         # We use control-G as the delimiter because it's not
                         # likely to appear in the alias.
                         if ( ( my $v = $alias{$k} ) =~ ss\a$k\a(.*)\a$1 ) {
@@ -3684,7 +3684,7 @@ sub sub {
       )
       if $frame;
 
-    # Determine the sub's return type,and capture approppriately.
+    # Determine the sub's return type, and capture appropriately.
     if (wantarray) {
 
         # Called in array context. call sub and capture output.
@@ -3748,7 +3748,7 @@ sub sub {
 
         # If we're doing exit messages...
         (
-            $frame & 4    # Extended messsages
+            $frame & 4    # Extended messages
             ? (
                 print_lineinfo( ' ' x $stack_depth, "out " ),
                 print_trace( $LINEINFO, -1, 1, 1, "$sub$al" )
@@ -5512,7 +5512,7 @@ sub postponed {
     # Yes. Mark this file as having breakpoints.
     $had_breakpoints{$filename} |= 1;
 
-    # "Cannot be done: unsufficient magic" - we can't just put the
+    # "Cannot be done: insufficient magic" - we can't just put the
     # breakpoints saved in %postponed_file into %dbline by assigning
     # the whole hash; we have to do it one item at a time for the
     # breakpoints to be set properly.
@@ -6488,7 +6488,7 @@ sub readline {
     # Nothing on the filehandle stack. Socket?
     if ( ref $OUT and UNIVERSAL::isa( $OUT, 'IO::Socket::INET' ) ) {
 
-        # Send anyting we have to send.
+        # Send anything we have to send.
         $OUT->write( join( '', @_ ) );
 
         # Receive anything there is to receive.
@@ -7289,7 +7289,7 @@ B<H> I<-number>    Display last number commands (default all).
 B<H> I<*>          Delete complete history.
 B<p> I<expr>        Same as \"I<print {DB::OUT} expr>\" in current package.
 B<|>I<dbcmd>        Run debugger command, piping DB::OUT to current pager.
-B<||>I<dbcmd>        Same as B<|>I<dbcmd> but DB::OUT is temporarilly select()ed as well.
+B<||>I<dbcmd>        Same as B<|>I<dbcmd> but DB::OUT is temporarily select()ed as well.
 B<\=> [I<alias> I<value>]    Define a command alias, or list current aliases.
 I<command>        Execute as a perl statement in current package.
 B<R>        Pure-man-restart of debugger, some of debugger state
@@ -7774,7 +7774,7 @@ sub dbdie {
         die @_ if $^S;    # in eval propagate
     }
 
-    # The code used to check $^S to see if compiliation of the current thing
+    # The code used to check $^S to see if compilation of the current thing
     # hadn't finished. We don't do it anymore, figuring eval is pretty stable.
     eval { require Carp };
 
@@ -8880,7 +8880,7 @@ Rerun the current session to:
     rerun -4     current command minus 4 (go back 4 steps)
 
 Whether this always makes sense, in the current context is unknowable, and is
-in part left as a useful exersize for the reader.  This sub returns the
+in part left as a useful exercise for the reader.  This sub returns the
 appropriate arguments to rerun the current session.
 
 =cut
@@ -9074,7 +9074,7 @@ variable via C<DB::set_list>.
     set_list( "PERLDB_POST",      @$post );
     set_list( "PERLDB_TYPEAHEAD", @typeahead );
 
-    # We are oficially restarting.
+    # We are officially restarting.
     $ENV{PERLDB_RESTART} = 1;
 
     # We are junking all child debuggers.
diff --git a/lib/unicore/PropValueAliases.txt b/lib/unicore/PropValueAliases.txt
index 01f18a0e61..819e800e13 100644
--- a/lib/unicore/PropValueAliases.txt
+++ b/lib/unicore/PropValueAliases.txt
@@ -35,7 +35,7 @@
 # Loose matching should be applied to all property names and property values, with
 # the exception of String Property values. With loose matching of property names and
 # values, the case distinctions, whitespace, and '_' are ignored. For Numeric Property
-# values, numeric equivalencies are applied: thus "01.00" is equivalent to "1".
+# values, numeric equivalences are applied: thus "01.00" is equivalent to "1".
 #
 # NOTE: Property value names are NOT unique across properties. For example:
 #
diff --git a/lib/unicore/PropertyAliases.txt b/lib/unicore/PropertyAliases.txt
index 77669813cd..9a4a8c77b2 100644
--- a/lib/unicore/PropertyAliases.txt
+++ b/lib/unicore/PropertyAliases.txt
@@ -27,7 +27,7 @@
 # Loose matching should be applied to all property names and property values, with
 # the exception of String Property values. With loose matching of property names and
 # values, the case distinctions, whitespace, and '_' are ignored. For Numeric Property
-# values, numeric equivalencies are applied: thus "01.00" is equivalent to "1".
+# values, numeric equivalences are applied: thus "01.00" is equivalent to "1".
 #
 # NOTE: Property value names are NOT unique across properties. For example:
 #
diff --git a/lib/unicore/StandardizedVariants.txt b/lib/unicore/StandardizedVariants.txt
index 6dee217489..a55af629b4 100644
--- a/lib/unicore/StandardizedVariants.txt
+++ b/lib/unicore/StandardizedVariants.txt
@@ -11,7 +11,7 @@
 # For terms of use, see http://www.unicode.org/terms_of_use.html
 #
 # Standardized variation sequences are defined in this file.
-# Ideographic variation sequences are defined acording to the registration
+# Ideographic variation sequences are defined according to the registration
 # process specified in UTS #37, and are listed in the Ideographic
 # Variation Database. Only those two types of variation sequences
 # are sanctioned for use by conformant implementations.
diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 4fe86e537f..6da720263c 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -17,7 +17,7 @@
 # changed 0+$self to pack 'J', $self.)
 
 my $start_time;
-BEGIN { # Get the time the script started running; do it at compiliation to
+BEGIN { # Get the time the script started running; do it at compilation to
         # get it as close as possible
     $start_time= time;
 }
@@ -1296,7 +1296,7 @@ my @printable;          # boolean: And are those characters printable?
 my @annotate_char_type; # Contains a type of those characters, specifically
                         # for the purposes of annotation.
 my $annotate_ranges;    # A map of ranges of code points that have the same
-                        # name for the purposes of annoation.  They map to the
+                        # name for the purposes of annotation.  They map to the
                         # upper edge of the range, so that the end point can
                         # be immediately found.  This is used to skip ahead to
                         # the end of a range, and avoid processing each
@@ -4499,7 +4499,7 @@ sub trace { return main::trace(@_); }
             # not, is normal.  The lists are prioritized so the most serious
             # ones are checked first
             if (exists $why_suppressed{$complete_name}
-                # Don't suppress if overriden
+                # Don't suppress if overridden
                 && ! grep { $_ eq $complete_name{$addr} }
                                                     @output_mapped_properties)
             {
@@ -5823,7 +5823,7 @@ END
 
                 # The pack() below can't cope with surrogates.
                 if ($code_point >= 0xD800 && $code_point <= 0xDFFF) {
-                    Carp::my_carp("Surrogage code point '$code_point' in mapping to '$map' in $self.  No map created");
+                    Carp::my_carp("Surrogate code point '$code_point' in mapping to '$map' in $self.  No map created");
                     next;
                 }
 
@@ -6563,7 +6563,7 @@ sub trace { return main::trace(@_); }
         # not quite so many.
         # If they are related, one must be a perl extension.  This is because
         # we can't guarantee that Unicode won't change one or the other in a
-        # later release even if they are idential now.
+        # later release even if they are identical now.
 
         my $self = shift;
         my $other = shift;
@@ -7070,7 +7070,7 @@ sub trace { return main::trace(@_) if main::DEBUG && $to_trace }
         # each of them is stored in %alias_to_property_of as they are defined.
         # But it's possible that this subroutine will be called with some
         # variant, so if the initial lookup fails, it is repeated with the
-        # standarized form of the input name.  If found, besides returning the
+        # standardized form of the input name.  If found, besides returning the
         # result, the input name is added to the list so future calls won't
         # have to do the conversion again.
 
@@ -7224,7 +7224,7 @@ sub trace { return main::trace(@_) if main::DEBUG && $to_trace }
                         . " argument to '-='.  Subtraction ignored.");
             return $self;
         }
-        elsif ($reversed) {   # Shouldnt happen in a -=, but just in case
+        elsif ($reversed) {   # Shouldn't happen in a -=, but just in case
             Carp::my_carp_bug("Can't cope with a "
             .  __PACKAGE__
             . " being the first parameter in a '-='.  Subtraction ignored.");
@@ -7647,7 +7647,7 @@ sub join_lines($) {
     # A blank separates the joined lines except if there is a break; an extra
     # blank is inserted after a period ending a line.
 
-    # Intialize the return with the first line.
+    # Initialize the return with the first line.
     my ($return, @lines) = split "\n", shift;
 
     # If the first line is null, it was an empty line, add the \n back in
@@ -7949,7 +7949,7 @@ sub Standardize($) {
     $name =~ s/^\s+//g;
     $name =~ s/\s+$//g;
 
-    # Convert interior white space and hypens into underscores.
+    # Convert interior white space and hyphens into underscores.
     $name =~ s/ (?<= .) [ -]+ (.) /_$1/xg;
 
     # Capitalize the letter following an underscore, and convert a sequence of
@@ -9016,7 +9016,7 @@ sub output_perl_charnames_line ($$) {
         #
         # meaning the codepoints in the range all have the value 'map' under
         # 'property'.
-        # Beginning and trailing white space in each field are not signficant.
+        # Beginning and trailing white space in each field are not significant.
         # Note there is not a trailing semi-colon in the above.  A trailing
         # semi-colon means the map is a null-string.  An omitted map, as
         # opposed to a null-string, is assumed to be 'Y', based on Unicode
@@ -9548,7 +9548,7 @@ END
     # the code point and name on each line.  This was actually the hardest
     # thing to design around.  The code points in those ranges may actually
     # have real maps not given by these two lines.  These maps will either
-    # be algorthimically determinable, or in the extracted files furnished
+    # be algorithmically determinable, or in the extracted files furnished
     # with the UCD.  In the event of conflicts between these extracted files,
     # and this one, Unicode says that this one prevails.  But it shouldn't
     # prevail for conflicts that occur in these ranges.  The data from the
@@ -10860,7 +10860,7 @@ sub filter_blocks_lines {
         #                                one.
         #   Titlecase                    duplicates UnicodeData.txt: gc=lt
         #   Unassigned Code Value        duplicates UnicodeData.txt: gc=cc
-        #   Zero-width                   never made into offical property;
+        #   Zero-width                   never made into official property;
         #                                subset of gc=cf
         # Most of the properties have the same names in this file as in later
         # versions, but a couple do not.
@@ -11740,7 +11740,7 @@ END
         my $description_start = "Code point's usage introduced in version ";
         $first_age->add_description($description_start . $first_age->name);
 
-        # To construct the accumlated values, for each of the age tables
+        # To construct the accumulated values, for each of the age tables
         # starting with the 2nd earliest, merge the earliest with it, to get
         # all those code points existing in the 2nd earliest.  Repeat merging
         # the new 2nd earliest with the 3rd earliest to get all those existing
@@ -12077,7 +12077,7 @@ END
 
 sub register_file_for_name($$$) {
     # Given info about a table and a datafile that it should be associated
-    # with, register that assocation
+    # with, register that association
 
     my $table = shift;
     my $directory_ref = shift;   # Array of the directory path for the file
@@ -12975,7 +12975,7 @@ adjacent to (but within) the braces and the colon or equal sign.
 =back
 
 Some properties are considered obsolete, but still available.  There are
-several varieties of obsolesence:
+several varieties of obsolescence:
 
 =over 4
 
@@ -13019,7 +13019,7 @@ flags each such entry in the table.
 @block_warning
 
 The table below has two columns.  The left column contains the \\p{}
-constructs to look up, possibly preceeded by the flags mentioned above; and
+constructs to look up, possibly preceded by the flags mentioned above; and
 the right column contains information about them, like a description, or
 synonyms.  It shows both the single and compound forms for each property that
 has them.  If the left column is a short name for a property, the right column
@@ -13572,7 +13572,7 @@ sub write_all_tables() {
             $filename = $table->file;
         }
 
-        # Use specified filename if avaliable, or default to property's
+        # Use specified filename if available, or default to property's
         # shortest name.  We need an 8.3 safe filename (which means "an 8
         # safe" filename, since after the dot is only 'pl', which is < 3)
         # The 2nd parameter is if the filename shouldn't be changed, and
@@ -14540,7 +14540,7 @@ if ( $file_list and $make_list ) {
 #
 # - First section is input files
 #   ($0 itself is not listed but is automatically considered an input)
-# - Section seperator is /^=+\$/
+# - Section separator is /^=+\$/
 # - Second section is a list of output files.
 # - Lines matching /^\\s*#/ are treated as comments
 #   which along with blank lines are ignored.
diff --git a/lib/version.t b/lib/version.t
index 23ad2c9fe1..0fb96bb369 100644
--- a/lib/version.t
+++ b/lib/version.t
@@ -27,7 +27,7 @@ BaseTests("version","new","declare");
 BaseTests("version","parse", "qv");
 BaseTests("version","parse", "declare");
 
-# dummy up a redundant call to satify David Wheeler
+# dummy up a redundant call to satisfy David Wheeler
 local $SIG{__WARN__} = sub { die $_[0] };
 eval 'use version;';
 unlike ($@, qr/^Subroutine main::declare redefined/,
diff --git a/lib/version/Internals.pod b/lib/version/Internals.pod
index a4f0543fe1..7cf4dc6769 100644
--- a/lib/version/Internals.pod
+++ b/lib/version/Internals.pod
@@ -510,7 +510,7 @@ point interpretation.  For example:
   $v2 = qv("1.2");       # also v1.2.0
 
 As you can see, either a bare number or a quoted string can usually
-be used interchangably, except in the case of a trailing zero, which
+be used interchangeably, except in the case of a trailing zero, which
 must be quoted to be converted properly.  For this reason, it is strongly
 recommended that all initializers to qv() be quoted strings instead of
 bare numbers.
diff --git a/lib/vmsish.t b/lib/vmsish.t
index 847d1a6f30..9e409a9d86 100644
--- a/lib/vmsish.t
+++ b/lib/vmsish.t
@@ -29,7 +29,7 @@ SKIP: {
 
 #========== vmsish status ==========
 `$Invoke_Perl -e 1`;  # Avoid system() from a pipe from harness.  Mutter.
-is($?,0,"simple Perl invokation: POSIX success status");
+is($?,0,"simple Perl invocation: POSIX success status");
 {
   use vmsish qw(status);
   is(($? & 1),1, "importing vmsish [vmsish status]");