diff options
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm | 7 | ||||
| -rw-r--r-- | cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm | 4 |
2 files changed, 6 insertions, 5 deletions
diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm index b6abe1c201..bd0d8a784b 100644 --- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm +++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm @@ -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 diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm index 9608256c34..37e53f06ff 100644 --- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm +++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm @@ -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; |