From 1c2e8ccaafb0b2b10b96f3d2dfb1b3396382ec57 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Marcel=20Gr=C3=BCnauer?= Date: Wed, 18 May 2011 21:56:51 -0700 Subject: [PATCH] [perl #90306] Fix simple typos --- MANIFEST | 2 +- Porting/Maintainers.pl | 2 +- configure.com | 2 +- dist/I18N-LangTags/ChangeLog | 2 +- dist/Storable/t/attach_errors.t | 2 +- ext/B/B/Concise.pm | 2 +- ext/B/t/OptreeCheck.pm | 2 +- ext/B/t/f_map.t | 2 +- ext/B/t/f_sort.t | 2 +- ext/PerlIO-encoding/encoding.xs | 4 ++-- hints/powerux.sh | 2 +- lib/unicore/mktables | 2 +- pod.lst | 2 +- pod/perl.pod | 2 +- pod/perlfunc.pod | 6 +++--- pod/perlvar.pod | 2 +- t/op/dor.t | 2 +- t/op/eval.t | 2 +- 18 files changed, 21 insertions(+), 21 deletions(-) diff --git a/MANIFEST b/MANIFEST index f802d99..acb9fb2 100644 --- a/MANIFEST +++ b/MANIFEST @@ -4385,7 +4385,7 @@ pod/perlhack.pod Perl hackers guide pod/perlhacktips.pod Tips for Perl core C code hacking pod/perlhacktut.pod Walk through the creation of a simple C code patch pod/perlhist.pod Perl history records -pod/perlinterp.pod Overview of the Perl intepreter source and how it works +pod/perlinterp.pod Overview of the Perl interpreter source and how it works pod/perlintro.pod Perl introduction for beginners pod/perliol.pod C API for Perl's implementation of IO in Layers pod/perlipc.pod Perl interprocess communication diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index e31cb02..027f082 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -705,7 +705,7 @@ use File::Glob qw(:case); 'MAINTAINER' => 'nwclark', # Nick has confirmed that while we have diverged from CPAN, # this package isn't primarily maintained in core - # Another release wll happen "Sometime" + # Another release will happen "Sometime" 'DISTRIBUTION' => '',#'NWCLARK/ExtUtils-Constant-0.16.tar.gz', 'FILES' => q[cpan/ExtUtils-Constant], 'EXCLUDED' => [ qw{ lib/ExtUtils/Constant/Aaargh56Hash.pm diff --git a/configure.com b/configure.com index 7eae459..970a345 100644 --- a/configure.com +++ b/configure.com @@ -2066,7 +2066,7 @@ $ if f$type(use5005threads) .nes. "" $ then $ if use5005threads .or. use5005threads .eqs. "define" then bool_dflt="n" $ endif -$ rp = "Use the newer intepreter-based ithreads? [''bool_dflt'] " +$ rp = "Use the newer interpreter-based ithreads? [''bool_dflt'] " $ GOSUB myread $ use_ithreads=ans $ if use_ithreads diff --git a/dist/I18N-LangTags/ChangeLog b/dist/I18N-LangTags/ChangeLog index 6cd744e..3464583 100644 --- a/dist/I18N-LangTags/ChangeLog +++ b/dist/I18N-LangTags/ChangeLog @@ -137,7 +137,7 @@ Revision history for Perl module I18N::LangTags. * Release 0.21 - * extract_language_tags and locale2langauge_tag now + * extract_language_tags and locale2language_tag now return untainted output. Useful if you feed tainted things, like $ENV{'LANG'}. diff --git a/dist/Storable/t/attach_errors.t b/dist/Storable/t/attach_errors.t index 67ad422..df8a79f 100644 --- a/dist/Storable/t/attach_errors.t +++ b/dist/Storable/t/attach_errors.t @@ -71,7 +71,7 @@ use Storable (); eval { Storable::freeze( $badfreeze ); }; - ok( $@, 'Storable dies correctly when STORABLE_freeze returns a referece' ); + ok( $@, 'Storable dies correctly when STORABLE_freeze returns a reference' ); # Check for a unique substring of the error message ok( $@ =~ /cannot return references/, 'Storable dies with the expected error' ); diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index fba7922..50fcdb5 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -1255,7 +1255,7 @@ usual convention for Arabic numerals, and the default. =item B<-littleendian> -Print seqence numbers with the least significant digit first. This is +Print sequence numbers with the least significant digit first. This is obviously mutually exclusive with bigendian. =back diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm index 8cb97b9..84658f5 100644 --- a/ext/B/t/OptreeCheck.pm +++ b/ext/B/t/OptreeCheck.pm @@ -975,7 +975,7 @@ sub OptreeCheck::gentest { sub OptreeCheck::processExamples { my @files = @_; - # gets array of paragraphs, which should be code-samples. Theyre + # gets array of paragraphs, which should be code-samples. They're # turned into optreeCheck tests, foreach my $file (@files) { diff --git a/ext/B/t/f_map.t b/ext/B/t/f_map.t index 9f323b8..e6735d9 100644 --- a/ext/B/t/f_map.t +++ b/ext/B/t/f_map.t @@ -25,7 +25,7 @@ Due to a bleadperl optimization (Dave Mitchell, circa may 04), the private flags /1, /2 are gone in blead (for the cases covered) When the optree stuff was integrated into 5.8.6, these tests failed, -and were todo'd. Theyre now done, by version-specific tweaking in +and were todo'd. They're now done, by version-specific tweaking in mkCheckRex(), therefore the skip is removed too. =for gentest diff --git a/ext/B/t/f_sort.t b/ext/B/t/f_sort.t index 51f2aa5..d5288a5 100644 --- a/ext/B/t/f_sort.t +++ b/ext/B/t/f_sort.t @@ -24,7 +24,7 @@ Due to a bleadperl optimization (Dave Mitchell, circa apr 04), the private flags /1, /2 are gone in blead (for the cases covered) When the optree stuff was integrated into 5.8.6, these tests failed, -and were todo'd. Theyre now done, by version-specific tweaking in +and were todo'd. They're now done, by version-specific tweaking in mkCheckRex(), therefore the skip is removed too. =head1 Test Notes diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs index d6b202a..98d89e9 100644 --- a/ext/PerlIO-encoding/encoding.xs +++ b/ext/PerlIO-encoding/encoding.xs @@ -538,8 +538,8 @@ Off_t PerlIOEncode_tell(pTHX_ PerlIO * f) { PerlIOBuf *b = PerlIOSelf(f, PerlIOBuf); - /* Unfortunately the only way to get a postion is to (re-)translate, - the UTF8 we have in bufefr and then ask layer below + /* Unfortunately the only way to get a position is to (re-)translate, + the UTF8 we have in buffer and then ask layer below */ PerlIO_flush(f); if (b->buf && b->ptr > b->buf) { diff --git a/hints/powerux.sh b/hints/powerux.sh index 0eecd86..4c05272 100644 --- a/hints/powerux.sh +++ b/hints/powerux.sh @@ -176,7 +176,7 @@ i_sysmode='undef' # There was a bug in memcmp (which was fixed a while ago) which sometimes # fails to provide the correct compare status (it is data dependant). I -# don't wnat to figure out if you are building with the correct version or +# don't want to figure out if you are building with the correct version or # not, so just pretend there is no memcmp (since perl has its own handy # substitute). # diff --git a/lib/unicore/mktables b/lib/unicore/mktables index e15a37e..fc287a9 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -590,7 +590,7 @@ our $to_trace = 0; # This is for a rarely used development feature that allows you to compare two # versions of the Unicode standard without having to deal with changes caused -# by the code points introduced in the later verson. Change the 0 to a SINGLE +# by the code points introduced in the later version. Change the 0 to a SINGLE # dotted Unicode release number (e.g. 2.1). Only code points introduced in # that release and earlier will be used; later ones are thrown away. You use # the version number of the earliest one you want to compare; then run this diff --git a/pod.lst b/pod.lst index 8893f6c..93c3669 100644 --- a/pod.lst +++ b/pod.lst @@ -125,7 +125,7 @@ g perlintern Perl internal functions (autogenerated) perlhack Perl hackers guide perlsource Guide to the Perl source tree - perlinterp Overview of the Perl intepreter source and how it works + perlinterp Overview of the Perl interpreter source and how it works perlhacktut Walk through the creation of a simple C code patch perlhacktips Tips for Perl core C code hacking perlpolicy Perl development policies diff --git a/pod/perl.pod b/pod/perl.pod index f35b79e..3976155 100644 --- a/pod/perl.pod +++ b/pod/perl.pod @@ -146,7 +146,7 @@ For ease of access, the Perl manual has been split up into several sections. perlhack Perl hackers guide perlsource Guide to the Perl source tree - perlinterp Overview of the Perl intepreter source and how it works + perlinterp Overview of the Perl interpreter source and how it works perlhacktut Walk through the creation of a simple C code patch perlhacktips Tips for Perl core C code hacking perlpolicy Perl development policies diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index 5e7faff..7aa18d8 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -6214,13 +6214,13 @@ as supported by the compiler used to build Perl: hh interpret integer as C type "char" or "unsigned char" on Perl 5.14 or later h interpret integer as C type "short" or "unsigned short" - j intepret integer as C type "intmax_t" on Perl 5.14 + j interpret integer as C type "intmax_t" on Perl 5.14 or later, and only with a C99 compiler (unportable) l interpret integer as C type "long" or "unsigned long" q, L, or ll interpret integer as C type "long long", "unsigned long long", or "quad" (typically 64-bit integers) - t intepret integer as C type "ptrdiff_t" on Perl 5.14 or later - z intepret integer as C type "size_t" on Perl 5.14 or later + t interpret integer as C type "ptrdiff_t" on Perl 5.14 or later + z interpret integer as C type "size_t" on Perl 5.14 or later As of 5.14, none of these raises an exception if they are not supported on your platform. However, if warnings are enabled, a warning of the diff --git a/pod/perlvar.pod b/pod/perlvar.pod index 39bab24..aa24f27 100644 --- a/pod/perlvar.pod +++ b/pod/perlvar.pod @@ -2022,7 +2022,7 @@ Mnemonic: Where was the syntax error "at"? =head2 Deprecated and removed variables Deprecating a variable announces the intent of the perl maintainers to -eventually remove the variable from the langauge. It may still be +eventually remove the variable from the language. It may still be available despite its status. Using a deprecated variable triggers a warning. diff --git a/t/op/dor.t b/t/op/dor.t index 602a03c..9f28050 100644 --- a/t/op/dor.t +++ b/t/op/dor.t @@ -23,7 +23,7 @@ is($x // 1, 1, ' // : left-hand operand undef'); $x=''; is($x // 0, '', ' // : left-hand operand defined but empty'); -like([] // 0, qr/^ARRAY/, ' // : left-hand operand a referece'); +like([] // 0, qr/^ARRAY/, ' // : left-hand operand a reference'); $x=undef; $x //= 1; diff --git a/t/op/eval.t b/t/op/eval.t index fbe939c..49a1cca 100644 --- a/t/op/eval.t +++ b/t/op/eval.t @@ -516,7 +516,7 @@ END_EVAL_TEST # test that the CV compiled for the eval is freed by checking that no additional # reference to outside lexicals are made. my $x; - is(Internals::SvREFCNT($x), 1, "originally only 1 referece"); + is(Internals::SvREFCNT($x), 1, "originally only 1 reference"); eval '$x'; is(Internals::SvREFCNT($x), 1, "execution eval doesn't create new references"); } -- 2.7.4