diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-09 11:48:49 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-09 12:15:24 -0800 |
| commit | 1a5644fdf09df9d44c36dcd1dfee4adbe1d64af7 (patch) | |
| tree | 15aa4769e377f6f7192feb45ac8b14a9213b9e4f | |
| parent | 5f62ec49afdf734b3908dfeb599150cb36c4ab37 (diff) | |
| download | perl-1a5644fdf09df9d44c36dcd1dfee4adbe1d64af7.tar.gz | |
tr_utf8.t: Suppress warning
| -rw-r--r-- | t/uni/tr_utf8.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t index 4bfe2937c9..ee96e8be1d 100644 --- a/t/uni/tr_utf8.t +++ b/t/uni/tr_utf8.t @@ -46,7 +46,7 @@ is($str, $hiragana, "s/// # hiragana -> katakana"); { # [perl 16843] my $line = 'abcdefghijklmnopqrstuvwxyz$0123456789'; - $line =~ tr/bcdeghijklmnprstvwxyz$02578/בצדעגהיײקלמנפּרסטװשכיזשױתײחא/; + $line =~ tr/bcdeghijklmnprstvwxyz$02578/בצדעגהיײקלמנפּרסטװשכיזשױתײח/; is($line, "aבצדעfגהיײקלמנoפqּרסuטװשכיזש1ױ34ת6ײח9", "[perl #16843]"); } |