From 5538372edeb44d5a3c463c8a09fecc7e2c858c3b Mon Sep 17 00:00:00 2001 From: "Peter J. Acklam) (via RT" Date: Thu, 6 Jan 2011 23:14:33 -0800 Subject: [PATCH] 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. # Signed-off-by: Abigail --- utils/c2ph.PL | 2 +- utils/h2ph.PL | 2 +- utils/h2xs.PL | 8 ++++---- utils/perlbug.PL | 2 +- utils/perlivp.PL | 2 +- 5 files changed, 8 insertions(+), 8 deletions(-) diff --git a/utils/c2ph.PL b/utils/c2ph.PL index 9450400..13389ec 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 2228e1b..87f3c7d 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 8564577..634e891 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 8caef3c..955e98f 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 887533b..ceefc3d 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)) { -- 2.7.4