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>

5 files changed, 8 insertions, 8 deletions

diff --git a/utils/c2ph.PL b/utils/c2ph.PL
index 9450400fe4..13389ec075 100644
--- 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);
-    print "oops, apperent pager foulup\n";
+    print "oops, apparent pager foulup\n";
     $isatty++;
     &usage(1);
 }
diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 2228e1bf91..87f3c7dacc 100644
--- 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));
-		       # 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 {
diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 8564577428..634e891f84 100644
--- 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).
-    -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.
@@ -1724,7 +1724,7 @@ sub accessor_docs {
 #  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.
@@ -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;
-  # 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*)*";
@@ -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
-# 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;
diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 8caef3cf19..955e98f507 100644
--- 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.
 
-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?
diff --git a/utils/perlivp.PL b/utils/perlivp.PL
index 887533b9cf..ceefc3df65 100644
--- 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
-    # actuall required module tests above.
+    # actual required module tests above.
     my $unnecessary = 'bLuRfle';
 
     if (!grep(/$unnecessary/, @extensions)) {