diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-09-23 07:55:15 -0600 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2010-10-15 23:14:29 +0900 |
| commit | 9fab35f28bfee6a6c5b8f9f9e37cd4e4755ce417 (patch) | |
| tree | ae9e94b9951c7eb9de1daf04ae9ea04b414aec34 /lib/feature | |
| parent | b4eac3bb9c5966ec2001ca9133a9e167a5e1338f (diff) | |
| download | perl-9fab35f28bfee6a6c5b8f9f9e37cd4e4755ce417.tar.gz | |
Subject: unicode_strings.t: rmv trail blanks
Diffstat (limited to 'lib/feature')
| -rw-r--r-- | lib/feature/unicode_strings.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/feature/unicode_strings.t b/lib/feature/unicode_strings.t index dce34bd0a7..3dfb0cf51c 100644 --- a/lib/feature/unicode_strings.t +++ b/lib/feature/unicode_strings.t @@ -26,7 +26,7 @@ my @posix_to_lower = my @latin1_to_title = @posix_to_upper; -# Override the elements in the to_lower arrays that have different lower case +# Override the elements in the to_lower arrays that have different lower case # mappings for my $i (0x41 .. 0x5A) { $posix_to_lower[$i] = chr(ord($posix_to_lower[$i]) + 32); @@ -84,7 +84,7 @@ for my $prefix (\%empty, \%posix, \%cyrillic, \%latin1) { my $cp = sprintf "U+%04X", $i; # First try using latin1 (Unicode) semantics. - use feature "unicode_strings"; + use feature "unicode_strings"; my $phrase = 'with uni8bit'; my $char = chr($i); |