In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/92dfa2590a5024b530c9d58fdd2520a01d40cef6?hp=5bf4b3bf13bc4055684a48448b05920845ef7764>
- Log ----------------------------------------------------------------- commit 92dfa2590a5024b530c9d58fdd2520a01d40cef6 Author: Lajos Veres <[email protected]> Date: Wed Jan 28 21:27:08 2015 -0500 Corrections to spelling and grammatical errors. Extracted from patch submitted by Lajos Veres in RT #123693. ----------------------------------------------------------------------- Summary of changes: ext/B/t/OptreeCheck.pm | 6 +++--- ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm | 4 ++-- ext/File-DosGlob/t/DosGlob.t | 2 +- ext/Pod-Functions/t/Functions.t | 6 +++--- ext/Pod-Html/t/crossref.pod | 2 +- ext/Pod-Html/t/crossref.t | 2 +- ext/Pod-Html/t/crossref2.t | 2 +- ext/Pod-Html/t/crossref3.t | 2 +- ext/XS-APItest/t/multicall.t | 2 +- ext/arybase/ptable.h | 8 ++++---- 10 files changed, 18 insertions(+), 18 deletions(-) diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm index eac73ba..a099a97 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- a/ext/Pod-Html/t/crossref.t +++ b/ext/Pod-Html/t/crossref.t @@ -66,7 +66,7 @@ __DATA__ <p><a href="#item1">"item1"</a></p> -<p><a href="#non-existant-section">"non existant section"</a></p> +<p><a href="#non-existent-section">"non existent section"</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 --- a/ext/Pod-Html/t/crossref2.t +++ b/ext/Pod-Html/t/crossref2.t @@ -62,7 +62,7 @@ __DATA__ <p><a href="#item1">"item1"</a></p> -<p><a href="#non-existant-section">"non existant section"</a></p> +<p><a href="#non-existent-section">"non existent section"</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 --- a/ext/Pod-Html/t/crossref3.t +++ b/ext/Pod-Html/t/crossref3.t @@ -62,7 +62,7 @@ __DATA__ <p><a href="#item1">"item1"</a></p> -<p><a href="#non-existant-section">"non existant section"</a></p> +<p><a href="#non-existent-section">"non existent section"</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 --- 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 --- 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; -- Perl5 Master Repository
