[perl #90306] Fix simple typos

diff --git a/MANIFEST b/MANIFEST
index f802d99..acb9fb2 100644 (file)
--- 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 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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");
 }