Fix typos (spelling errors) in ext/*.
authorPeter J. Acklam) (via RT <perlbug-followup@perl.org>
Fri, 7 Jan 2011 07:12:20 +0000 (23:12 -0800)
committerAbigail <abigail@abigail.be>
Fri, 7 Jan 2011 10:06:41 +0000 (11:06 +0100)
# New Ticket Created by  (Peter J. Acklam)
# Please include the string:  [perl #81882]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81882 >

Signed-off-by: Abigail <abigail@abigail.be>
31 files changed:
ext/B/B.xs
ext/B/B/Concise.pm
ext/B/t/OptreeCheck.pm
ext/B/t/concise-xs.t
ext/B/t/optree_concise.t
ext/B/t/optree_varinit.t
ext/Devel-Peek/Changes
ext/Devel-Peek/t/Peek.t
ext/DynaLoader/dl_aix.xs
ext/DynaLoader/dl_dlopen.xs
ext/DynaLoader/dl_vmesa.xs
ext/File-Glob/bsd_glob.c
ext/Hash-Util-FieldHash/lib/Hash/Util/FieldHash.pm
ext/Hash-Util-FieldHash/t/11_hashassign.t
ext/IPC-Open3/lib/IPC/Open3.pm
ext/IPC-Open3/t/IPC-Open3.t
ext/Opcode/Opcode.xs
ext/POSIX/POSIX.xs
ext/POSIX/lib/POSIX.pm
ext/POSIX/t/math.t
ext/POSIX/t/time.t
ext/SDBM_File/sdbm/biblio
ext/SDBM_File/sdbm/dbe.c
ext/SDBM_File/sdbm/sdbm.3
ext/SDBM_File/sdbm/sdbm.c
ext/Socket/Socket.pm
ext/XS-APItest/APItest.xs
ext/XS-APItest/exception.c
ext/XS-APItest/t/my_cxt.t
ext/mro/mro.xs
ext/re/t/regop.t

index c5d971b..c1071c5 100644 (file)
@@ -1641,7 +1641,7 @@ PV(sv)
               to avoid tripping up over variable names in the pads.  */
            if((SvLEN(sv) && len >= SvLEN(sv))) {
                /* It claims to be longer than the space allocated for it -
-                  presuambly it's a variable name in the pad  */
+                  presumably it's a variable name in the pad  */
                len = strlen(p);
            }
 #endif
index 6eae872..3849a18 100644 (file)
@@ -306,7 +306,7 @@ sub compileOpts {
                if (!$Config::Config{usedl}
                    && keys %{$pkg.'::'} == 1
                    && $pkg->can('bootstrap')) {
-                   # It is something that we're staticly linked to, but hasn't
+                   # It is something that we're statically linked to, but hasn't
                    # yet been used.
                    eval "require $pkg";
                }
index a85c5fc..bae9cb6 100644 (file)
@@ -317,7 +317,7 @@ our %gOpts =        # values are replaced at runtime !!
      selftest  => 'self-tests mkCheckRex vs the reference rendering',
 
      fail      => 'force all test to fail, print to stdout',
-     dump      => 'dump cmdline arg prcessing',
+     dump      => 'dump cmdline arg processing',
      noanchors => 'dont anchor match rex',
 
      # array values are one-of selections, with 1st value as default
@@ -679,7 +679,7 @@ sub mkCheckRex {
     # make targ args wild
     $str =~ s/\[t\d+\]/[t\\d+]/msg;
 
-    # escape bracing, etc.. manual \Q (doesnt escape '+')
+    # escape bracing, etc.. manual \Q (doesn't escape '+')
     $str =~ s/([\[\]()*.\$\@\#\|{}])/\\$1/msg;
     # $str =~ s/(?<!\\)([\[\]\(\)*.\$\@\#\|{}])/\\$1/msg;
 
index 9b42325..fa120b0 100644 (file)
@@ -20,7 +20,7 @@ and the stash is scanned for the function-names in that package.
 Each value in %$testpkgs is a hash-of-lists (HoL) whose keys are
 implementation-types and values are lists of function-names of that type.
 
-To keep these HoLs smaller and more managable, they may carry an
+To keep these HoLs smaller and more manageable, they may carry an
 additional 'dflt' => $impl_Type, which means that unnamed functions
 are expected to be of that default implementation type.  Those unnamed
 functions are known from the scan of the package stash.
@@ -38,7 +38,7 @@ If a function is implemented differently on different platforms, the
 test for that function will fail on one of those platforms.  These
 specific functions can be skipped by a 'skip' => [ @list ] to the HoL
 mentioned previously.  See usage for skip in B's HoL, which avoids
-testing a function which doesnt exist on non-threaded builds.
+testing a function which doesn't exist on non-threaded builds.
 
 =head1 OPTIONS AND ARGUMENTS
 
index 00a7849..22a3ff8 100644 (file)
@@ -353,7 +353,7 @@ sub set_up_relative_test {
                $h->{arg} .= ' RELATIVE' if $h->{name} eq 'leavesub';
            }
            elsif ($style eq 'scope') {
-               # supress printout entirely
+               # suppress printout entirely
                $$format="" unless grep { $h->{name} eq $_ } @scopeops;
            }
        });
index f748ab8..5271a65 100644 (file)
@@ -240,7 +240,7 @@ EONT_EONT
 checkOptree ( name     => 'local $a=undef',
              prog      => 'local $a=undef',
              errs      => ['Name "main::a" used only once: possible typo at -e line 1.'],
-             note      => 'locals are rare, probly not worth doing',
+             note      => 'locals are rare, probably not worth doing',
              bcopts    => '-basic',
              strip_open_hints => 1,
              expect    => <<'EOT_EOT', expect_nt => <<'EONT_EONT');
index e87a7ca..39bbf91 100644 (file)
@@ -2,7 +2,7 @@
 0.4: Hashes dumped recursively.
      Additional fields for CV added.
 0.5: Prototypes for functions supported. 
-     Strings are consostently in quotes now.
+     Strings are consistently in quotes now.
      Name changed to Devel::Peek (former ExtUtils::Peek).
 0.7:
        New function mstat added.
index 60fe495..ee0faa2 100644 (file)
@@ -48,7 +48,7 @@ sub do_test {
            # things like $IVNV gave the illusion that the string passed in was
            # a regexp into which variables were interpolated, but this wasn't
            # actually true as those 'variables' actually also ate the
-           # whitspace on the line. So it seems better to mark lines that
+           # whitespace on the line. So it seems better to mark lines that
            # need to be eliminated. I considered (?# ... ) and (?{ ... }),
            # but whilst embedded code or comment syntax would keep it as a
            # legitimate regexp, it still isn't true. Seems easier and clearer
@@ -122,7 +122,7 @@ do_test('immediate constant (string)',
   CUR = 3
   LEN = \\d+');
 
-do_test('assigment of immediate constant (integer)',
+do_test('assignment of immediate constant (integer)',
         $b = 123,
 'SV = IV\\($ADDR\\) at $ADDR
   REFCNT = 1
@@ -660,7 +660,7 @@ do_test('FORMAT',
     PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\)
     OUTSIDE = $ADDR \\(MAIN\\)');
 
-do_test('blessing to a class with embeded NUL characters',
+do_test('blessing to a class with embedded NUL characters',
         (bless {}, "\0::foo::\n::baz::\t::\0"),
 'SV = $RV\\($ADDR\\) at $ADDR
   REFCNT = 1
index eac313f..6d24428 100644 (file)
@@ -8,7 +8,7 @@
  *
  *  I did change all malloc's, free's, strdup's, calloc's to use the perl
  *  equilvant.  I also removed some stuff we will not need.  Call fini()
- *  on statup...   It can probably be trimmed more.
+ *  on startup...   It can probably be trimmed more.
  */
 
 #define PERLIO_NOT_STDIO 0
index dfa9d06..21a8ef5 100644 (file)
@@ -10,7 +10,7 @@
  * 9th August 1994    - Changed to use IV
  * 10th August 1994   - Tim Bunce: Added RTLD_LAZY, switchable debugging,
  *                      basic FreeBSD support, removed ClearError
- * 29th Feburary 2000 - Alan Burlison: Added functionality to close dlopen'd
+ * 29th February 2000 - Alan Burlison: Added functionality to close dlopen'd
  *                      files when the interpreter exits
  *
  */
index 02bb0b2..bf84322 100644 (file)
@@ -2,7 +2,7 @@
  *
  * Platform:   VM/ESA, possibly others which use dllload etc.
  * Author:     Neale Ferguson (neale@mailbox.tabnsw.com.au)
- * Created:    23rd Septemer, 1998
+ * Created:    23rd September, 1998
  *
  *
  */
index db36007..f891d29 100644 (file)
@@ -815,7 +815,7 @@ glob3(Char *pathbuf, Char *pathbuf_last, Char *pathend, Char *pathend_last,
 
 
 /*
- * Extend the gl_pathv member of a glob_t structure to accomodate a new item,
+ * Extend the gl_pathv member of a glob_t structure to accommodate a new item,
  * add the new item, and update gl_pathc.
  *
  * This assumes the BSD realloc, which only copies the block when its size
index cf65036..2414649 100644 (file)
@@ -753,7 +753,7 @@ incompatibility of object bodies.
 =head1 GUTS
 
 To make C<Hash::Util::FieldHash> work, there were two changes to
-F<perl> itself.  C<PERL_MAGIC_uvar> was made avalaible for hashes,
+F<perl> itself.  C<PERL_MAGIC_uvar> was made available for hashes,
 and weak references now call uvar C<get> magic after a weakref has been
 cleared.  The first feature is used to make field hashes intercept
 their keys upon access.  The second one triggers garbage collection.
index 8e25811..e492fa2 100644 (file)
@@ -12,7 +12,7 @@ my @comma = ("key", "value");
 # The peephole optimiser already knows that it should convert the string in
 # $foo{string} into a shared hash key scalar. It might be worth making the
 # tokeniser build the LHS of => as a shared hash key scalar too.
-# And so there's the possiblility of it going wrong
+# And so there's the possibility of it going wrong
 # And going right on 8 bit but wrong on utf8 keys.
 # And really we should also try utf8 literals in {} and => in utf8.t
 
index 658a12e..983d1a6 100644 (file)
@@ -172,7 +172,7 @@ sub xclose_on_exec {
 }
 
 # I tried using a * prototype character for the filehandle but it still
-# disallows a bearword while compiling under strict subs.
+# disallows a bareword while compiling under strict subs.
 
 sub xopen {
     open $_[0], $_[1] or croak "$Me: open($_[0], $_[1]) failed: $!";
index 9bc80da..a29b550 100644 (file)
@@ -147,7 +147,7 @@ else {
 $TB->current_test($test);
 
 # RT 72016
-eval{$pid = open3 'WRITE', 'READ', 'ERROR', '/non/existant/program'; };
+eval{$pid = open3 'WRITE', 'READ', 'ERROR', '/non/existent/program'; };
 if (IPC::Open3::DO_SPAWN) {
     if ($@) {
        cmp_ok(waitpid($pid, 0), '>', 0);
index 1e5f8c2..587c299 100644 (file)
@@ -89,7 +89,7 @@ put_op_bitspec(pTHX_ const char *optag, STRLEN len, SV *mask)
 
 /* Fetch a 'bits' entry for an opname or optag (IV/PV).
  * Note that we return the actual entry for speed.
- * Always sv_mortalcopy() if returing it to user code.
+ * Always sv_mortalcopy() if returning it to user code.
  */
 
 static SV *
index 92ab1bc..239f0dd 100644 (file)
@@ -586,7 +586,7 @@ restore_sigmask(pTHX_ SV *osset_sv)
  *
  * Note that we don't free() the malloc()ed memory unless and until we call
  * malloc() again ourselves because the CRT putenv() function simply puts its
- * pointer argument into the environ[] arrary (it doesn't make a copy of it)
+ * pointer argument into the environ[] array (it doesn't make a copy of it)
  * so this memory must otherwise be leaked.
  */
 
index b86f2a9..bcfd1aa 100644 (file)
@@ -907,7 +907,7 @@ sub load_imports {
   my %export;
   @export{map {@$_} values %EXPORT_TAGS} = ();
   # Doing the de-dup with a temporary hash has the advantage that the SVs in
-  # @EXPORT are actually shared hash key sacalars, which will save some memory.
+  # @EXPORT are actually shared hash key scalars, which will save some memory.
   push @EXPORT, keys %export;
 }
 
index 2923689..e04cc30 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 use POSIX;
 use Test::More tests => 14;
 
-# These tests are mainly to make sure that these arithmatic functions
+# These tests are mainly to make sure that these arithmetic functions
 # exist and are accessible.  They are not meant to be an exhaustive
 # test for the interface.
 
index dad1f6a..74d4496 100644 (file)
@@ -42,7 +42,7 @@ if ($^O eq "hpux" && $Config{osvers} >= 11.3) {
 is(asctime(localtime(0)), ctime(0), "asctime() and ctime() at zero");
 is(asctime(localtime(12345678)), ctime(12345678), "asctime() and ctime() at 12345678");
 
-# Careful!  strftime() is locale sensative.  Let's take care of that
+# Careful!  strftime() is locale sensitive.  Let's take care of that
 my $orig_loc = setlocale(LC_TIME, "C") || die "Cannot setlocale() to C:  $!";
 my $jan_16 = 15 * 86400;
 is(ctime($jan_16), strftime("%a %b %d %H:%M:%S %Y\n", localtime($jan_16)),
index 0be09fa..f2880dc 100644 (file)
@@ -52,7 +52,7 @@
 %K torek
 
 %A Rich Wales
-%T Discusson of "dbm" data base system
+%T Discussion of "dbm" data base system
 %B USENET newsgroup unix.wizards
 %D Jan. 1984
 %K rich
index 166e64e..f2aa290 100644 (file)
@@ -286,7 +286,7 @@ main(int argc, char **argv)
        }
 
        if (giveusage || what == YOW || argn < 1) {
-               fprintf(stderr, "Usage: %s databse [-m r|w|rw] [-crtx] -a|-d|-f|-F|-s [key [content]]\n", argv[0]);
+               fprintf(stderr, "Usage: %s database [-m r|w|rw] [-crtx] -a|-d|-f|-F|-s [key [content]]\n", argv[0]);
                exit(-1);
        }
 
index fe6fe76..25afcbe 100644 (file)
@@ -186,7 +186,7 @@ you notice clustering or other effects that may be due to the hashing
 algorithm used by this package, you can override it by supplying your
 own
 .BR sdbm_hash (\|)
-routine.  Doing so will make the database unintelligable to any other
+routine.  Doing so will make the database unintelligible to any other
 applications that do not use your specialized hash function.
 .sp
 .LP
index c5f7aa8..c554e52 100644 (file)
@@ -84,7 +84,7 @@ sdbm_open(register char *file, register int flags, register int mode)
        if (file == NULL || !*file)
                return errno = EINVAL, (DBM *) NULL;
 /*
- * need space for two seperate filenames
+ * need space for two separate filenames
  */
        filelen = strlen(file);
 
@@ -306,7 +306,7 @@ makroom(register DBM *db, long int hash, int need)
                newp = (hash & db->hmask) | (db->hmask + 1);
 
 /*
- * write delay, read avoidence/cache shuffle:
+ * write delay, read avoidance/cache shuffle:
  * select the page for incoming pair: if key is to go to the new page,
  * write out the previous one, and copy the new one over, thus making
  * it the current page. If not, simply write the new page, and we are
index a34fa77..c747e4b 100644 (file)
@@ -213,7 +213,7 @@ the name of a host, and translates that to an opaque string
 (if programming in C, struct in_addr or struct in6_addr depending on the 
 address family passed in).  The host string may be a string hostname, such
 as 'www.perl.org', or an IP address.  If using an IP address, the type of
-IP address must be consistant with the address family passed into the function.
+IP address must be consistent with the address family passed into the function.
 
 This function is not exported by default.
 
index dda137f..0ce4d51 100644 (file)
@@ -466,7 +466,7 @@ test_op_list_describe(OP *o)
     return SvPVX(res);
 }
 
-/* the real new*OP functions have a tendancy to call fold_constants, and
+/* the real new*OP functions have a tendency to call fold_constants, and
  * other such unhelpful things, so we need our own versions for testing */
 
 #define mkUNOP(t, f) THX_mkUNOP(aTHX_ (t), (f))
index 01ff912..c0de7ec 100644 (file)
@@ -10,8 +10,8 @@ static void throws_exception(int throw_e)
     croak("boo\n");
 }
 
-/* Don't give this the same name as exection() in ext/Devel/PPPort/module3.c
-   as otherwise building entirely staticly will cause a test to fail, as
+/* Don't give this the same name as execution() in ext/Devel/PPPort/module3.c
+   as otherwise building entirely statically will cause a test to fail, as
    PPPort's execption() gets used in place of this one.  */
    
 int apitest_exception(int throw_e)
index 4f890bc..d2d6055 100644 (file)
@@ -1,6 +1,6 @@
 #!perl -w
 
-# test per-interpeter static data API (MY_CXT)
+# test per-interpreter static data API (MY_CXT)
 # DAPM Dec 2005
 
 my $threads;
index fb28399..76a91ae 100644 (file)
@@ -95,7 +95,7 @@ S_mro_get_linear_isa_c3(pTHX_ HV* stash, U32 level)
                if(items == 0 && AvFILLp(seqs) == -1) {
                    /* Only one parent class. For this case, the C3
                       linearisation is this class followed by the parent's
-                      inearisation, so don't bother with the expensive
+                      linearisation, so don't bother with the expensive
                       calculation.  */
                    SV **svp;
                    I32 subrv_items = AvFILLp(isa_lin) + 1;
index c24c32f..e3ead69 100644 (file)
@@ -51,7 +51,7 @@ foreach my $testout ( @tests ) {
 # The format below is simple. Each line is an exact
 # string that must be found in the output.
 # Lines starting the # are comments.
-# Lines starting with --- are seperators indicating
+# Lines starting with --- are separators indicating
 # that the tests for this result set are finished.
 # If you add a test make sure you update $NUM_SECTS
 # the commented output is just for legacy/debugging purposes