diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-12-25 14:42:06 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-01-19 11:58:20 -0700 |
| commit | 59aef945faf0b11465a7302c8310a45a6e4e2eb2 (patch) | |
| tree | ebd9317ea283f35b19a6c4f409c757beabb00255 | |
| parent | 8edd0c7f1de2cb79064568cc8a4d7a17ffd1a732 (diff) | |
| download | perl-59aef945faf0b11465a7302c8310a45a6e4e2eb2.tar.gz | |
re/reg_fold.t: Add and revise comments
| -rw-r--r-- | t/re/reg_fold.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/re/reg_fold.t b/t/re/reg_fold.t index 264b2fda4b..a4fe6fa63b 100644 --- a/t/re/reg_fold.t +++ b/t/re/reg_fold.t @@ -46,7 +46,8 @@ while (<$fh>) { # Try both Latin1 and Unicode for code points below 256 foreach my $upgrade ("", 'utf8::upgrade($c); ') { - if ($upgrade) { + if ($upgrade) { # No need to upgrade if already must be in + # utf8 next if $swap && $fold_above_latin1; next if !$swap && $cpv > 255; } @@ -98,7 +99,7 @@ for my $i (0x61 .. 0x7A, 0xE0 .. 0xF6, 0xF8 .. 0xFE) { $fold_ascii[$lower_ord] = $upper_ord; } -# Test every latin1 character that the correct values in both /u and /d +# Test every latin1 character for the correct values in both /u and /d for my $i (0 .. 255) { my $chr = sprintf "\\x%02X", $i; my $hex_fold_ascii = sprintf "0x%02X", $fold_ascii[$i]; |