Corrections to spelling and grammatical errors.

Extracted from patch submitted by Lajos Veres in RT #123693.

diff --git a/pod/perllocale.pod b/pod/perllocale.pod
index a44ffbc..fdf524f 100644 (file)
--- a/pod/perllocale.pod
+++ b/pod/perllocale.pod
@@ -32,7 +32,7 @@ L<perlunitut> for an introduction to that) in part to address these
 design deficiencies, and nowadays, there is a series of "UTF-8
 locales", based on Unicode.  These are locales whose character set is
 Unicode, encoded in UTF-8.  Starting in v5.20, Perl fully supports
-UTF-8 locales, except for sorting and string comparisions.  (Use
+UTF-8 locales, except for sorting and string comparisons.  (Use
 L<Unicode::Collate> for these.)  Perl continues to support the old
 non UTF-8 locales as well.
 

diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl
index 463b5cd..abeecba 100644 (file)
--- a/regen/regen_lib.pl
+++ b/regen/regen_lib.pl
@@ -67,7 +67,7 @@ sub close_and_rename {
     close $fh or die "Error closing $name: $!";
 
     if ($TAP) {
-        # Don't use compare beacuse if there are errors it doesn't give any
+        # Don't use compare because if there are errors it doesn't give any
         # way to generate diagnostics about what went wrong.
         # These files are small enough to read into memory.
         local $/;

diff --git a/t/op/dor.t b/t/op/dor.t
index a0b98f1..7fbeca0 100644 (file)
--- a/t/op/dor.t
+++ b/t/op/dor.t
@@ -58,7 +58,7 @@ for (qw(getc pos readline readlink undef umask <> <FOO> <$foo> -f)) {
 eval q# sub f ($) { } f $x / 2; #;
 is( $@, '', "'/' correctly parsed as arithmetic operator" );
 eval q# sub f ($):lvalue { $y } f $x /= 2; #;
-is( $@, '', "'/=' correctly parsed as assigment operator" );
+is( $@, '', "'/=' correctly parsed as assignment operator" );
 eval q# sub f ($) { } f $x /2; #;
 like( $@, qr/^Search pattern not terminated/,
     "Caught unterminated search pattern error message: empty subroutine" );

diff --git a/t/op/method.t b/t/op/method.t
index 3e26f2f..4583d50 100644 (file)
--- a/t/op/method.t
+++ b/t/op/method.t
@@ -634,7 +634,7 @@ SKIP: {
     seek DATA, $data_start, Fcntl::SEEK_SET() or die $!;
 
     is(Colour::H1->getline(), <DATA>, 'read from a file');
-    is(C3::H1->getline(), 'method in C3::H1', 'intial resolution is a method');
+    is(C3::H1->getline(), 'method in C3::H1', 'initial resolution is a method');
 
     *Copy:: = \*C3::;
     *C3:: = \*Colour::;

diff --git a/t/op/taint.t b/t/op/taint.t
index a13fde4..ca3261f 100644 (file)
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -2082,11 +2082,11 @@ foreach my $ord (78, 163, 256) {
 }
 
 # Bug RT #45167 the return value of sprintf sometimes wasn't tainted
-# when the args were tainted. This only occured on the first use of
+# when the args were tainted. This only occurred on the first use of
 # sprintf; after that, its TARG has taint magic attached, so setmagic
 # at the end works.  That's why there are multiple sprintf's below, rather
 # than just one wrapped in an inner loop. Also, any plaintext between
-# fprmat entires would correctly cause tainting to get set. so test with
+# fprmat entries would correctly cause tainting to get set. so test with
 # "%s%s" rather than eg "%s %s".
 
 {

diff --git a/t/porting/customized.t b/t/porting/customized.t
index 2b1a0d2..2061532 100644 (file)
--- a/t/porting/customized.t
+++ b/t/porting/customized.t
@@ -126,7 +126,7 @@ customized.t - Test that CUSTOMIZED files in Maintainers.pl have not been overwr
 =head1 DESCRIPTION
 
 customized.t checks that files listed in C<Maintainers.pl> that have been C<CUSTOMIZED>
-are not accidently overwritten by CPAN module updates.
+are not accidentally overwritten by CPAN module updates.
 
 =head1 OPTIONS
 

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 2dbf2c4..22114d0 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -1481,7 +1481,7 @@ plan (tests => scalar @files) if ! $regen;
 
 
  # Sort file names so we get consistent results, and to put cpan last,
- # preceeded by the ones that we don't generally parse.  This is because both
+ # preceded by the ones that we don't generally parse.  This is because both
  # these classes are generally parsed only if there is a link to the interior
  # of them, and we have to parse all others first to guarantee that they don't
  # have such a link. 'lib' files come just before these, as some of these are

diff --git a/t/re/pat_re_eval.t b/t/re/pat_re_eval.t
index 16ecf35..f01e7d8 100644 (file)
--- a/t/re/pat_re_eval.t
+++ b/t/re/pat_re_eval.t
@@ -755,10 +755,10 @@ sub run_tests {
        }
 
        my $code1u = "(??{qw(\x{100})})";
-       eval {/^$code1u$/}; norun("reparse embeded unicode norun");
+       eval {/^$code1u$/}; norun("reparse embedded unicode norun");
        {
            use re 'eval';
-           ok("\x{100}" =~ /^$code1u$/, "reparse embeded unicode");
+           ok("\x{100}" =~ /^$code1u$/, "reparse embedded unicode");
        }
     }
 

diff --git a/t/test.pl b/t/test.pl
index d30214b..dd55a79 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -1441,7 +1441,7 @@ sub class_ok {
     # Written so as to count as one test
     local $Level = $Level + 1;
     if( ref $class ) {
-        ok( 0, "$class is a refrence, not a class name" );
+        ok( 0, "$class is a reference, not a class name" );
     }
     else {
         isa_ok($class, $isa, $class_name);

diff --git a/t/uni/cache.t b/t/uni/cache.t
index 50087c1..4cd9a48 100644 (file)
--- a/t/uni/cache.t
+++ b/t/uni/cache.t
@@ -8,7 +8,7 @@ BEGIN {
 plan tests => 1;
 
 # Looks to see if a "do 'unicore/lib/Sc/Hira.pl'" is called more than once, by
-# putting a compile sub first on the libary path;
+# putting a compile sub first on the library path;
 # XXX Kludge: requires exact path, which might change, and has deep knowledge
 # of how utf8_heavy.pl works, which might also change.