Corrections to spelling and grammatical errors.

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

diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm
index eac73ba..a099a97 100644 (file)
--- a/ext/B/t/OptreeCheck.pm
+++ b/ext/B/t/OptreeCheck.pm
@@ -5,7 +5,7 @@ use warnings;
 use vars qw($TODO $Level $using_open);
 require "test.pl";
 
-our $VERSION = '0.12';
+our $VERSION = '0.13';
 
 # now export checkOptree, and those test.pl functions used by tests
 our @EXPORT = qw( checkOptree plan skip skip_all pass is like unlike
@@ -652,14 +652,14 @@ sub mkCheckRex {
            : $cmp eq '==' ? $] == $version
            : $cmp eq '>=' ? $] >= $version
            : $cmp eq '>'  ? $] >  $version
-           : die("bad comparision '$cmp' in string [$str]\n")
+           : die("bad comparison '$cmp' in string [$str]\n")
         and !$cmp2 || (
              $cmp2 eq '<'  ? $] <  $v2
            : $cmp2 eq '<=' ? $] <= $v2
            : $cmp2 eq '==' ? $] == $v2
            : $cmp2 eq '>=' ? $] >= $v2
            : $cmp2 eq '>'  ? $] >  $v2
-           : die("bad comparision '$cmp2' in string [$str]\n")
+           : die("bad comparison '$cmp2' in string [$str]\n")
          )
        ) {
            $repl = "$line\n";

diff --git a/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm b/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
index 5cf6252..ec2316d 100644 (file)
--- a/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
+++ b/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
@@ -8,7 +8,7 @@ use vars qw($VERSION @ISA @EXPORT);
 
 @ISA = qw(Exporter);
 @EXPORT = qw(writemain);
-$VERSION = '1.03';
+$VERSION = '1.04';
 
 # blead will run this with miniperl, hence we can't use autodie or File::Temp
 my $temp;
@@ -235,7 +235,7 @@ libraries that relate to perl modules and should be linked into a new
 perl binary. It writes a corresponding F<perlmain.c> file that
 is a plain C file containing all the bootstrap code to make the
 If the first argument to C<writemain()> is a reference to a scalar it is
-used as the filename to open for ouput. Any other reference is used as
+used as the filename to open for output. Any other reference is used as
 the filehandle to write to. Otherwise output defaults to C<STDOUT>.
 
 The typical usage is from within a Makefile generated by

diff --git a/ext/File-DosGlob/t/DosGlob.t b/ext/File-DosGlob/t/DosGlob.t
index 600b87a..49a0f9e 100644 (file)
--- a/ext/File-DosGlob/t/DosGlob.t
+++ b/ext/File-DosGlob/t/DosGlob.t
@@ -28,7 +28,7 @@ is ($_, $expected, 'test if $_ takes as the default');
 cmp_ok(@r, '>=', 9) or diag("|@r|");
 
 @r = <*/a*.t>;
-# atleast {argv,abbrev,anydbm,autoloader,append,arith,array,assignwarn,auto}.t
+# at least {argv,abbrev,anydbm,autoloader,append,arith,array,assignwarn,auto}.t
 cmp_ok(@r, '>=', 9, 'check <*/*>') or diag("|@r|");
 my $r = scalar @r;
 

diff --git a/ext/Pod-Functions/t/Functions.t b/ext/Pod-Functions/t/Functions.t
index 53da93a..6758202 100644 (file)
--- a/ext/Pod-Functions/t/Functions.t
+++ b/ext/Pod-Functions/t/Functions.t
@@ -29,18 +29,18 @@ is( $pkg_ref, $exp_ref, '%Pod::Functions::Type_Description exported' );
 is( $pkg_ref, $exp_ref, '@Pod::Functions::Type_Order exported' );
 
 # Check @Type_Order
-my @catagories = qw(
+my @categories = qw(
     String  Regexp  Math   ARRAY  LIST      HASH    I/O
     Binary  File    Flow   Namespace Misc    Process
     Modules Objects Socket SysV   User      Network Time
 );
 
-ok( eq_array( \@Type_Order, \@catagories ),
+ok( eq_array( \@Type_Order, \@categories ),
     '@Type_Order' );
 
 my @cat_keys = grep exists $Type_Description{ $_ } => @Type_Order;
 
-ok( eq_array( \@cat_keys, \@catagories ),
+ok( eq_array( \@cat_keys, \@categories ),
     'keys() %Type_Description' );
 
 SKIP: {

diff --git a/ext/Pod-Html/t/crossref.pod b/ext/Pod-Html/t/crossref.pod
index f6dddf1..21ee0f4 100644 (file)
--- a/ext/Pod-Html/t/crossref.pod
+++ b/ext/Pod-Html/t/crossref.pod
@@ -10,7 +10,7 @@ L<htmllink/section 2>
 
 L</"item1">
 
-L</"non existant section">
+L</"non existent section">
 
 L<var-copy>
 

diff --git a/ext/Pod-Html/t/crossref.t b/ext/Pod-Html/t/crossref.t
index 30fa6d3..bc033c4 100644 (file)
--- a/ext/Pod-Html/t/crossref.t
+++ b/ext/Pod-Html/t/crossref.t
@@ -66,7 +66,7 @@ __DATA__
 
 <p><a href="#item1">&quot;item1&quot;</a></p>
 
-<p><a href="#non-existant-section">&quot;non existant section&quot;</a></p>
+<p><a href="#non-existent-section">&quot;non existent section&quot;</a></p>
 
 <p><a href="/[RELCURRENTWORKINGDIRECTORY]/testdir/test.lib/var-copy.html">var-copy</a></p>
 

diff --git a/ext/Pod-Html/t/crossref2.t b/ext/Pod-Html/t/crossref2.t
index 536cfbb..70eae7e 100644 (file)
--- a/ext/Pod-Html/t/crossref2.t
+++ b/ext/Pod-Html/t/crossref2.t
@@ -62,7 +62,7 @@ __DATA__
 
 <p><a href="#item1">&quot;item1&quot;</a></p>
 
-<p><a href="#non-existant-section">&quot;non existant section&quot;</a></p>
+<p><a href="#non-existent-section">&quot;non existent section&quot;</a></p>
 
 <p><a href="../testdir/test.lib/var-copy.html">var-copy</a></p>
 

diff --git a/ext/Pod-Html/t/crossref3.t b/ext/Pod-Html/t/crossref3.t
index ab8f055..cfa0abc 100644 (file)
--- a/ext/Pod-Html/t/crossref3.t
+++ b/ext/Pod-Html/t/crossref3.t
@@ -62,7 +62,7 @@ __DATA__
 
 <p><a href="#item1">&quot;item1&quot;</a></p>
 
-<p><a href="#non-existant-section">&quot;non existant section&quot;</a></p>
+<p><a href="#non-existent-section">&quot;non existent section&quot;</a></p>
 
 <p><a href="[ABSCURRENTWORKINGDIRECTORY]/testdir/test.lib/var-copy.html">var-copy</a></p>
 

diff --git a/ext/XS-APItest/t/multicall.t b/ext/XS-APItest/t/multicall.t
index f96f62e..85d993d 100644 (file)
--- a/ext/XS-APItest/t/multicall.t
+++ b/ext/XS-APItest/t/multicall.t
@@ -24,7 +24,7 @@ use XS::APItest;
 }
 
 # [perl #78070]
-# multicall using a sub that aleady has CvDEPTH > 1 caused sub
+# multicall using a sub that already has CvDEPTH > 1 caused sub
 # to be prematurely freed
 
 {

diff --git a/ext/arybase/ptable.h b/ext/arybase/ptable.h
index b3f38d8..f7919be 100644 (file)
--- a/ext/arybase/ptable.h
+++ b/ext/arybase/ptable.h
@@ -127,15 +127,15 @@ STATIC void ptable_split(pPTBLMS_ ptable * const t) {
  t->ary = ary;
 
  for (i = 0; i < oldsize; i++, ary++) {
-  ptable_ent **curentp, **entp, *ent;
+  ptable_ent **currentp, **entp, *ent;
   if (!*ary)
    continue;
-  curentp = ary + oldsize;
+  currentp = ary + oldsize;
   for (entp = ary, ent = *ary; ent; ent = *entp) {
    if ((newsize & PTABLE_HASH(ent->key)) != i) {
     *entp     = ent->next;
-    ent->next = *curentp;
-    *curentp  = ent;
+    ent->next = *currentp;
+    *currentp  = ent;
     continue;
    } else
     entp = &ent->next;