diff options
author | Lajos Veres <vlajos@gmail.com> | 2015-01-28 21:52:06 -0500 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2015-01-28 21:52:06 -0500 |
commit | 5c25e937d02c198f7678666fd740e85e8d1522b9 (patch) | |
tree | e14077e8e37a99ec38df777f8d50c063158742ac | |
parent | b8fda9357ad61e890ce4e344b04f991b91596170 (diff) | |
download | perl-5c25e937d02c198f7678666fd740e85e8d1522b9.tar.gz |
Corrections to spelling and grammatical errors.
Extracted from patch submitted by Lajos Veres in RT #123693.
-rw-r--r-- | pod/perllocale.pod | 2 | ||||
-rw-r--r-- | regen/regen_lib.pl | 2 | ||||
-rw-r--r-- | t/op/dor.t | 2 | ||||
-rw-r--r-- | t/op/method.t | 2 | ||||
-rw-r--r-- | t/op/taint.t | 4 | ||||
-rw-r--r-- | t/porting/customized.t | 2 | ||||
-rw-r--r-- | t/porting/podcheck.t | 2 | ||||
-rw-r--r-- | t/re/pat_re_eval.t | 4 | ||||
-rw-r--r-- | t/test.pl | 2 | ||||
-rw-r--r-- | t/uni/cache.t | 2 |
10 files changed, 12 insertions, 12 deletions
diff --git a/pod/perllocale.pod b/pod/perllocale.pod index a44ffbc948..fdf524f956 100644 --- 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 463b5cd899..abeecba456 100644 --- 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 a0b98f189e..7fbeca06eb 100644 --- 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 3e26f2f3b5..4583d50a01 100644 --- 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 a13fde4b06..ca3261fb96 100644 --- 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 2b1a0d2b46..2061532d8e 100644 --- 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 2dbf2c4cf8..22114d08d9 100644 --- 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 16ecf355f2..f01e7d8a80 100644 --- 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"); } } @@ -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 50087c1381..4cd9a4845e 100644 --- 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. |