Perl / perl5

🐪 The Perl programming language
https://dev.perl.org/perl5/
Other
1.99k stars 557 forks source link

Patch: Fix simple typos #11330

Closed p5pRT closed 13 years ago

p5pRT commented 13 years ago

Migrated from rt.perl.org#90306 (status was 'resolved')

Searchable as RT90306$

p5pRT commented 13 years ago

From gr@univie.ac.at

This is a bug report for perl from gr@​univie.ac.at\, generated with the help of perlbug 1.39 running under perl 5.14.0.

This patch fixes a few simple typos​:

Inline Patch ```diff diff --git a/MANIFEST b/MANIFEST index 5855917..d854eac 100644 --- a/MANIFEST +++ b/MANIFEST @@ -4384,7 +4384,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 a91ee95..c5a9ef3 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 014a4df..c018988 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 59267d2..7b1802c 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 f3c759a..564eaa5 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 95bb507..0a167df 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 2a1b20a..4236956 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -6174,13 +6174,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"); } ```

After this, the following test fails:   t/porting/cmp_version.t

I think it will be ok once the patch is committed.

Marcel


Flags​:   category=docs   severity=low


Site configuration information for perl 5.14.0​:

Configured by marcel at Wed May 11 09​:34​:07 CEST 2011.

Summary of my perl5 (revision 5 version 14 subversion 0) configuration​:  
  Platform​:   osname=darwin\, osvers=10.7.0\, archname=darwin-2level   uname='darwin shibuya.local 10.7.0 darwin kernel version 10.7.0​: sat jan 29 15​:17​:16 pst 2011; root​:xnu-1504.9.37~1release_i386 i386 i386 macbookpro7\,1 darwin '   config_args='-de -Dprefix=/Users/marcel/perl5/perlbrew/perls/perl-5.14.0-RC2'   hint=recommended\, useposix=true\, d_sigaction=define   useithreads=undef\, usemultiplicity=undef   useperlio=define\, d_sfio=undef\, uselargefiles=define\, usesocks=undef   use64bitint=define\, use64bitall=define\, uselongdouble=undef   usemymalloc=n\, bincompat5005=undef   Compiler​:   cc='cc'\, ccflags ='-fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'\,   optimize='-O3'\,   cppflags='-fno-common -DPERL_DARWIN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'   ccversion=''\, gccversion='4.2.1 (Based on Apple Inc. build 5658) (LLVM build 2335.9)'\, gccosandvers=''   intsize=4\, longsize=8\, ptrsize=8\, doublesize=8\, byteorder=12345678   d_longlong=define\, longlongsize=8\, d_longdbl=define\, longdblsize=16   ivtype='long'\, ivsize=8\, nvtype='double'\, nvsize=8\, Off_t='off_t'\, lseeksize=8   alignbytes=8\, prototype=define   Linker and Libraries​:   ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc'\, ldflags =' -fstack-protector -L/usr/local/lib'   libpth=/usr/local/lib /usr/lib   libs=-ldbm -ldl -lm -lutil -lc   perllibs=-ldl -lm -lutil -lc   libc=/usr/lib/libc.dylib\, so=dylib\, useshrplib=false\, libperl=libperl.a   gnulibc_version=''   Dynamic Linking​:   dlsrc=dl_dlopen.xs\, dlext=bundle\, d_dlsymun=undef\, ccdlflags=' '   cccdlflags=' '\, lddlflags=' -bundle -undefined dynamic_lookup -L/usr/local/lib -fstack-protector'

Locally applied patches​:   RC2


@​INC for perl 5.14.0​:   /Users/marcel/perl5/perlbrew/perls/perl-5.14.0-RC2/lib/site_perl/5.14.0/darwin-2level   /Users/marcel/perl5/perlbrew/perls/perl-5.14.0-RC2/lib/site_perl/5.14.0   /Users/marcel/perl5/perlbrew/perls/perl-5.14.0-RC2/lib/5.14.0/darwin-2level   /Users/marcel/perl5/perlbrew/perls/perl-5.14.0-RC2/lib/5.14.0   .


Environment for perl 5.14.0​:   DYLD_LIBRARY_PATH (unset)   HOME=/Users/marcel   LANG (unset)   LANGUAGE (unset)   LC_CTYPE=UTF-8   LD_LIBRARY_PATH (unset)   LOGDIR (unset)   PATH=/usr/local/mysql/bin​:/opt/vim/bin​:/Users/marcel/code/dev/bin/bin​:/Users/marcel/code/github/Waya/bin​:/usr/local/bin​:/usr/local/sbin​:/Users/marcel/.pythonbrew/bin​:/Users/marcel/.pythonbrew/pythons/Python-2.7.1/bin​:/Users/marcel/perl5/perlbrew/bin​:/Users/marcel/perl5/perlbrew/perls/perl-5.14.0-RC2/bin​:/usr/bin​:/bin​:/usr/sbin​:/sbin​:/usr/local/bin​:/usr/texbin​:/usr/X11/bin   PERLBREW_PATH=/Users/marcel/perl5/perlbrew/bin​:/Users/marcel/perl5/perlbrew/perls/perl-5.14.0-RC2/bin   PERLBREW_PERL=perl-5.14.0-RC2   PERLBREW_ROOT=/Users/marcel/perl5/perlbrew   PERLBREW_VERSION=0.18   PERL_AUTOINSTALL_PREFER_CPAN=1   PERL_BADLANG (unset)   PERL_EXTUTILS_AUTOINSTALL=--default-deps   PERL_MM_USE_DEFAULT=1   SHELL=/bin/bash

p5pRT commented 13 years ago

From @cpansprout

On Wed May 11 01​:14​:33 2011\, gr@​univie.ac.at wrote​:

This is a bug report for perl from gr@​univie.ac.at\, generated with the help of perlbug 1.39 running under perl 5.14.0.

This patch fixes a few simple typos​:

Thank you. Applied as 1c2e8ccaafb.

p5pRT commented 13 years ago

The RT System itself - Status changed from 'new' to 'open'

p5pRT commented 13 years ago

@cpansprout - Status changed from 'open' to 'resolved'