This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c997da5
)
ext/XS-APItest/t/utf8_warn_base.pl: Fix comment typos
author
Karl Williamson
<khw@cpan.org>
Sat, 7 Dec 2019 18:21:52 +0000
(11:21 -0700)
committer
Karl Williamson
<khw@cpan.org>
Sat, 7 Dec 2019 22:50:38 +0000
(15:50 -0700)
ext/XS-APItest/t/utf8_warn_base.pl
patch
|
blob
|
blame
|
history
diff --git
a/ext/XS-APItest/t/utf8_warn_base.pl
b/ext/XS-APItest/t/utf8_warn_base.pl
index
2359ca7
..
79c3e49
100644
(file)
--- a/
ext/XS-APItest/t/utf8_warn_base.pl
+++ b/
ext/XS-APItest/t/utf8_warn_base.pl
@@
-728,7
+728,7
@@
sub isUTF8_CHAR($$) { # Uses first principals to determine if this is legal
return 0 if $utf8skip != $length;
- # Ac
u
umulate the $code point. The remaining bits in the start byte count
+ # Ac
c
umulate the $code point. The remaining bits in the start byte count
# towards it
my $cp = $bits >> $utf8skip;
@@
-881,8
+881,7
@@
if ($::TEST_CHUNK == 0
else {
# Starting with the code point, use first
- # principals to find the equivalen UTF-8
- # string
+ # principals to find the equivalent I8 string
my @bytes;
my $uv = $cp;
for (my $i = $length - 1; $i > 0; $i--) {