summaryrefslogtreecommitdiff
path: root/cpan/ExtUtils-Constant
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2017-06-24 21:08:51 +0200
committerNicholas Clark <nick@ccl4.org>2017-08-08 15:19:58 +0200
commitaa036315f696d82d2b87a4bc3c7661522db304f3 (patch)
tree1d2cd009d75a668c8810819081ef7e872cd7299f /cpan/ExtUtils-Constant
parent357c35e6f18e65f372e7a1b22ee39a3c7c9e5810 (diff)
downloadperl-aa036315f696d82d2b87a4bc3c7661522db304f3.tar.gz
Typo fixes.
Spotted by dsteinbrunner@pobox.com, reported as CPAN #85527. However, I think that the "to to" should be "to do", not "to".
Diffstat (limited to 'cpan/ExtUtils-Constant')
-rw-r--r--cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm7
-rw-r--r--cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm4
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;