diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-07-30 13:17:14 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-07-30 13:17:14 +0000 |
| commit | 9b382af32a1863be9ef6f8ae39669fd02799f0d1 (patch) | |
| tree | a254eaddffa7be8ee572d4959e032d0618f0c8a8 /t/uni | |
| parent | 47e06d6888c8ce486ae115280c95b30a35e2db76 (diff) | |
| download | perl-9b382af32a1863be9ef6f8ae39669fd02799f0d1.tar.gz | |
Fix typos in comments.
p4raw-id: //depot/perl@31668
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/case.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/uni/case.pl b/t/uni/case.pl index 9d142ed685..c42887f07d 100644 --- a/t/uni/case.pl +++ b/t/uni/case.pl @@ -9,7 +9,7 @@ sub unidump { 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 @@ sub casetest { 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; |