Change 31668 by [EMAIL PROTECTED] on 2007/07/30 13:17:14
Fix typos in comments.
Affected files ...
... //depot/perl/t/uni/case.pl#13 edit
Differences ...
==== //depot/perl/t/uni/case.pl#13 (text) ====
Index: perl/t/uni/case.pl
--- perl/t/uni/case.pl#12~29723~ 2007-01-08 13:20:26.000000000 -0800
+++ perl/t/uni/case.pl 2007-07-30 06:17:14.000000000 -0700
@@ -9,7 +9,7 @@
sub casetest {
my ($base, $spec, @funcs) = @_;
# For each provided function run it, and run a version with some extra
- # characters afterwards. Use a recylcing symbol, as it doesn't change case.
+ # characters afterwards. Use a recycling symbol, as it doesn't change case.
my $ballast = chr (0x2672) x 3;
@funcs = map {my $f = $_;
($f,
@@ -79,7 +79,7 @@
for my $i (sort keys %$spec) {
my $w = unidump($spec->{$i});
if (ord('A') == 193 && $i eq "\x8A\x73") {
- $w = '0178'; # It's a latin small Y with diaresis and not a latin
small letter sharp 's'.
+ $w = '0178'; # It's a Latin small Y with diaeresis and not a Latin
small letter sharp 's'.
}
my $u = unpack "C0U", $i;
my $h = sprintf "%04X", $u;
End of Patch.
