Front page | perl.perl5.porters |
Postings from January 2011
[perl #81890] [PATCH] Fix typos (spelling errors) in lib/*
Thread Next
From:
perlbug-followup
Date:
January 7, 2011 01:57
Subject:
[perl #81890] [PATCH] Fix typos (spelling errors) in lib/*
Message ID:
rt-3.6.HEAD-5425-1294384379-322.81890-75-0@perl.org
# 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 >
---
lib/Benchmark.pm | 6 ++--
lib/Benchmark.t | 6 ++--
lib/File/Basename.pm | 2 +-
lib/File/DosGlob.pm | 2 +-
lib/File/Find.pm | 4 +-
lib/File/stat.pm | 2 +-
lib/File/stat.t | 2 +-
lib/Pod/t/InputObjects.t | 2 +-
lib/Tie/Handle/stdhandle_from_handle.t | 2 +-
lib/UNIVERSAL.pm | 6 ++--
lib/bigint.pl | 2 +-
lib/bigrat.pl | 2 +-
lib/charnames.pm | 6 ++--
lib/charnames.t | 2 +-
lib/diagnostics.pm | 2 +-
lib/exceptions.pl | 2 +-
lib/locale.t | 2 +-
lib/newgetopt.pl | 2 +-
lib/perl5db.pl | 24 ++++++++++----------
lib/unicore/PropValueAliases.txt | 2 +-
lib/unicore/PropertyAliases.txt | 2 +-
lib/unicore/StandardizedVariants.txt | 2 +-
lib/unicore/mktables | 36 ++++++++++++++++----------------
lib/version.pod | 2 +-
lib/version.t | 2 +-
lib/version/Internals.pod | 2 +-
lib/vmsish.t | 2 +-
27 files changed, 64 insertions(+), 64 deletions(-)
diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index 269674c..7f0f21c 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 9b8e2af..73e09c6 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 da9e07b..0f8bbc2 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 ac25979..29d2efc 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 92fe636..2b00bf0 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 9cb4a3f..8db0b77 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 40bd86b..0646ebd 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 0beeb4e..515645a 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 71eb608..0e95e5c 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 8960462..f314d9c 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 cf915f7..6de1c53 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 36c283c..aaf1713 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 750b1cf..853d4ff 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 f44c805..c5d2a8d 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 f694e3f..71b2cbc 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 2ae8d4e..8af64c8 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 d84c6c4..68a4d60 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 34a13ad..4ac9470 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 0412183..ea0d049 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 01f18a0..819e800 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 7766981..9a4a8c7 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 6dee217..a55af62 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 4fe86e5..6da7202 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.pod b/lib/version.pod
index a8cded8..ff66854 100644
--- a/lib/version.pod
+++ b/lib/version.pod
@@ -59,7 +59,7 @@ source file. Quoting is recommended, as it ensures that trailing zeroes
=item Dotted Decimal Versions
The more modern form of version assignment, with 3 (or potentially more)
-integers seperated by decimal points (e.g. v1.2.3). This is the form that
+integers separated by decimal points (e.g. v1.2.3). This is the form that
Perl itself has used since 5.6.0 was released. The leading "v" is now
strongly recommended for clarity, and will throw a warning in a future
release if omitted.
diff --git a/lib/version.t b/lib/version.t
index 23ad2c9..0fb96bb 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 a4f0543fe..7cf4dc6 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 847d1a6..9e409a9 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]");
--
1.7.3.3
Thread Next
-
[perl #81890] [PATCH] Fix typos (spelling errors) in lib/*
by perlbug-followup