summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--lib/Benchmark.pm6
-rw-r--r--lib/Benchmark.t6
-rw-r--r--lib/File/Basename.pm2
-rw-r--r--lib/File/DosGlob.pm2
-rw-r--r--lib/File/Find.pm4
-rw-r--r--lib/File/stat.pm2
-rw-r--r--lib/File/stat.t2
-rw-r--r--lib/Pod/t/InputObjects.t2
-rw-r--r--lib/Tie/Handle/stdhandle_from_handle.t2
-rw-r--r--lib/UNIVERSAL.pm6
-rw-r--r--lib/bigint.pl2
-rw-r--r--lib/bigrat.pl2
-rw-r--r--lib/charnames.pm6
-rw-r--r--lib/charnames.t2
-rw-r--r--lib/diagnostics.pm2
-rw-r--r--lib/exceptions.pl2
-rw-r--r--lib/locale.t2
-rw-r--r--lib/newgetopt.pl2
-rw-r--r--lib/perl5db.pl24
-rw-r--r--lib/unicore/PropValueAliases.txt2
-rw-r--r--lib/unicore/PropertyAliases.txt2
-rw-r--r--lib/unicore/StandardizedVariants.txt2
-rw-r--r--lib/unicore/mktables36
-rw-r--r--lib/version.t2
-rw-r--r--lib/version/Internals.pod2
-rw-r--r--lib/vmsish.t2
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]");
View Lorry Controller Status