Fix typos (spelling errors) in utils/*.

# New Ticket Created by  (Peter J. Acklam)
# Please include the string:  [perl #81914]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81914 >

Signed-off-by: Abigail <abigail@abigail.be>

diff --git a/utils/c2ph.PL b/utils/c2ph.PL
index 9450400..13389ec 100644 (file)
--- a/utils/c2ph.PL
+++ b/utils/c2ph.PL
@@ -394,7 +394,7 @@ eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_]+=)(.*)/ && shift;
 
 sub PLUMBER {
     select(STDERR);
 
 sub PLUMBER {
     select(STDERR);

-    print "oops, apperent pager foulup\n";
+    print "oops, apparent pager foulup\n";

     $isatty++;
     &usage(1);
 }
     $isatty++;
     &usage(1);
 }

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 2228e1b..87f3c7d 100644 (file)
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -426,7 +426,7 @@ sub expr {
                       # Croak if nv_preserves_uv_bits < 64 ?
                       $new .=         hex(substr($hex, -8)) +
                               2**32 * hex(substr($hex,  0, -8));
                       # Croak if nv_preserves_uv_bits < 64 ?
                       $new .=         hex(substr($hex, -8)) +
                               2**32 * hex(substr($hex,  0, -8));

-                      # The above will produce "errorneus" code
+                      # The above will produce "erroneous" code

                       # if the hex constant was e.g. inside UINT64_C
                       # macro, but then again, h2ph is an approximation.
                   } else {
                       # if the hex constant was e.g. inside UINT64_C
                       # macro, but then again, h2ph is an approximation.
                   } else {

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 8564577..634e891 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -530,7 +530,7 @@ OPTIONS:
     -X, --omit-XS         Omit the XS portion (implies both -c and -f).
     -a, --gen-accessors   Generate get/set accessors for struct and union members
                           (used with -x).
     -X, --omit-XS         Omit the XS portion (implies both -c and -f).
     -a, --gen-accessors   Generate get/set accessors for struct and union members
                           (used with -x).

-    -b, --compat-version  Specify a perl version to be backwards compatibile with.
+    -b, --compat-version  Specify a perl version to be backwards compatible with.

     -c, --omit-constant   Omit the constant() function and specialised AUTOLOAD
                           from the XS file.
     -d, --debugging       Turn on debugging messages.
     -c, --omit-constant   Omit the constant() function and specialised AUTOLOAD
                           from the XS file.
     -d, --debugging       Turn on debugging messages.


@@ -1724,7 +1724,7 @@ sub accessor_docs {
 #  my \$buffer = $name->new();
 #  my \$obj = \$buffer->_to_ptr();
 #
 #  my \$buffer = $name->new();
 #  my \$obj = \$buffer->_to_ptr();
 #

-#This exersizes the following two methods, and an additional class
+#This exercises the following two methods, and an additional class

 #C<$name>, the internal representation of which is a reference to a
 #packed string with the C structure.  Keep in mind that \$buffer should
 #better survive longer than \$obj.
 #C<$name>, the internal representation of which is a reference to a
 #packed string with the C structure.  Keep in mind that \$buffer should
 #better survive longer than \$obj.


@@ -1801,7 +1801,7 @@ sub get_typemap {
 sub normalize_type {           # Second arg: do not strip const's before \*
   my $type = shift;
   my $do_keep_deep_const = shift;
 sub normalize_type {           # Second arg: do not strip const's before \*
   my $type = shift;
   my $do_keep_deep_const = shift;

-  # If $do_keep_deep_const this is heuristical only
+  # If $do_keep_deep_const this is heuristic only

   my $keep_deep_const = ($do_keep_deep_const ? '\b(?![^(,)]*\*)' : '');
   my $ignore_mods
     = "(?:\\b(?:(?:__const__|const)$keep_deep_const|static|inline|__inline__)\\b\\s*)*";
   my $keep_deep_const = ($do_keep_deep_const ? '\b(?![^(,)]*\*)' : '');
   my $ignore_mods
     = "(?:\\b(?:(?:__const__|const)$keep_deep_const|static|inline|__inline__)\\b\\s*)*";


@@ -2021,7 +2021,7 @@ EOM
 close(PL) || die "Can't close $ext$modpname/Makefile.PL: $!\n";
 
 # Create a simple README since this is a CPAN requirement
 close(PL) || die "Can't close $ext$modpname/Makefile.PL: $!\n";
 
 # Create a simple README since this is a CPAN requirement

-# and it doesnt hurt to have one
+# and it doesn't hurt to have one

 warn "Writing $ext$modpname/README\n";
 open(RM, ">README") || die "Can't create $ext$modpname/README:$!\n";
 my $thisyear = (gmtime)[5] + 1900;
 warn "Writing $ext$modpname/README\n";
 open(RM, ">README") || die "Can't create $ext$modpname/README:$!\n";
 my $thisyear = (gmtime)[5] + 1900;

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 8caef3c..955e98f 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -1292,7 +1292,7 @@ release of Perl, are likely to receive less attention from the
 volunteers who build and maintain Perl than reports about bugs in
 the current release.
 
 volunteers who build and maintain Perl than reports about bugs in
 the current release.
 

-This tool isn't apropriate for reporting bugs in any version
+This tool isn't appropriate for reporting bugs in any version

 prior to Perl 5.0.
 
 =item Are you sure what you have is a bug?
 prior to Perl 5.0.
 
 =item Are you sure what you have is a bug?

diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 887533b..ceefc3d 100644 (file)
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -235,7 +235,7 @@ if (defined($Config{'extensions'})) {
 
     # A silly name for a module (that hopefully won't ever exist).
     # Note that this test serves more as a check of the validity of the
 
     # A silly name for a module (that hopefully won't ever exist).
     # Note that this test serves more as a check of the validity of the

-    # actuall required module tests above.
+    # actual required module tests above.

     my $unnecessary = 'bLuRfle';
 
     if (!grep(/$unnecessary/, @extensions)) {
     my $unnecessary = 'bLuRfle';
 
     if (!grep(/$unnecessary/, @extensions)) {