diff options
| -rw-r--r-- | pod/perldelta.pod | 5 | ||||
| -rw-r--r-- | t/uni/case.pl | 9 |
2 files changed, 10 insertions, 4 deletions
diff --git a/pod/perldelta.pod b/pod/perldelta.pod index f5d98ef388..7a759b8066 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -2828,9 +2828,8 @@ tests have been added. 785 832-834 845 op/sprintf.t 224 3 1.34% 98 100 136 op/tr.t 97 5 5.15% 63 71-74 - uni/fold.t 767 8 1.04% 25-26 62 169 196 - 648 697-698 - 60 tests and 384 subtests skipped. + uni/fold.t 780 6 0.77% 61 169 196 661 + 710-711 =head2 Localising Tied Arrays and Hashes Is Broken diff --git a/t/uni/case.pl b/t/uni/case.pl index 17f78142c3..b6df5a8089 100644 --- a/t/uni/case.pl +++ b/t/uni/case.pl @@ -95,7 +95,13 @@ sub casetest { # # The uppercase exceptions are identical. # - if ($i =~ /^(0149|01F0|1E96|1E97|1E98|1E99|1E9A)$/) { + # The lowercase has one more: + # + # Unicode Unicode+EBCDIC + # + # 0130 -> 0069 0307 (00D1 0307) + # + if ($i =~ /^(0130|0149|01F0|1E96|1E97|1E98|1E99|1E9A)$/) { $e =~ s/004E/002B/; # N $e =~ s/004A/00A2/; # J $e =~ s/0048/00E7/; # H @@ -103,6 +109,7 @@ sub casetest { $e =~ s/0057/00EF/; # W $e =~ s/0059/00DF/; # Y $e =~ s/0041/00A0/; # A + $e =~ s/0069/00D1/; # i } # We have to map the output, not the input, because # pack/unpack U has been EBCDICified, too, it would |