Typo fixes.
authorNicholas Clark <nick@ccl4.org>
Sat, 24 Jun 2017 19:08:51 +0000 (21:08 +0200)
committerNicholas Clark <nick@ccl4.org>
Tue, 8 Aug 2017 13:19:58 +0000 (15:19 +0200)
Spotted by dsteinbrunner@pobox.com, reported as CPAN #85527.
However, I think that the "to to" should be "to do", not "to".

cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm
cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm

index b6abe1c..bd0d8a7 100644 (file)
@@ -5,7 +5,7 @@ use vars qw($VERSION);
 use Carp;
 use Text::Wrap;
 use ExtUtils::Constant::Utils qw(C_stringify perl_stringify);
-$VERSION = '0.05';
+$VERSION = '0.06';
 
 use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
 
@@ -331,7 +331,7 @@ of C code to proceed and follow the assignment. I<pre> will be at the start
 of a block, so variables may be defined in it.
 
 =cut
-# Hmm. value undef to to NOTDEF? value () to do NOTFOUND?
+# Hmm. value undef to do NOTDEF? value () to do NOTFOUND?
 
 sub assign {
   my $self = shift;
@@ -581,7 +581,8 @@ sub switch_clause {
     $body .= $indent . "case '" . C_stringify ($char) . "':\n";
     foreach my $thisone (sort {
        # Deal with the case of an item actually being an array ref to 1 or 2
-       # hashrefs. Don't assign to $a or $b, as they're aliases to the orignal
+       # hashrefs. Don't assign to $a or $b, as they're aliases to the
+        # original
        my $l = ref $a eq 'ARRAY' ? ($a->[0] || $->[1]) : $a;
        my $r = ref $b eq 'ARRAY' ? ($b->[0] || $->[1]) : $b;
        # Sort by weight first
index 9608256..37e53f0 100644 (file)
@@ -6,7 +6,7 @@ use Carp;
 
 @ISA = 'Exporter';
 @EXPORT_OK = qw(C_stringify perl_stringify);
-$VERSION = '0.03';
+$VERSION = '0.04';
 
 use constant is_perl55 => ($] < 5.005_50);
 use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
@@ -46,7 +46,7 @@ sub C_stringify {
   # grr 5.6.1
   confess "Wide character in '$_' intended as a C identifier"
     if tr/\0-\377// != length;
-  # grr 5.6.1 moreso because its regexps will break on data that happens to
+  # grr 5.6.1 more so because its regexps will break on data that happens to
   # be utf8, which includes my 8 bit test cases.
   $_ = pack 'C*', unpack 'U*', $_ . pack 'U*' if is_perl56;
   s/\\/\\\\/g;