The tr///
Test case:
use strict;
use warnings;
use utf8;
use 5.010000;
use autodie;
binmode STDOUT, ':utf8';
my $x = "Perlα";
$x =~ tr/αα/βγ/;
say "$^V $x";
reports:
v5.16.0 Perlγ
but it should place a beta as in 5.14:
v5.14.2 Perlβ
This is fixed in upstream with commit:
commit cb6d347447b642c0af2d1a378f437459e42ef4f1
Author: Karl Williamson <public>
Date: Mon Jun 11 09:56:56 2012 -0600
PATCH: [perl #113584] tr/// multiple transliterations
Commit 4de6d205aeab9ec737ca35ba4eb61f37cebefc55 failed to take into
consideration tr///.
The tr/// Test case: use strict; use warnings; use utf8; use 5.010000; use autodie; binmode STDOUT, ':utf8'; my $x = "Perlα"; $x =~ tr/αα/βγ/; say "$^V $x"; reports: v5.16.0 Perlγ but it should place a beta as in 5.14: v5.14.2 Perlβ This is fixed in upstream with commit: commit cb6d347447b642c0af2d1a378f437459e42ef4f1 Author: Karl Williamson <public> Date: Mon Jun 11 09:56:56 2012 -0600 PATCH: [perl #113584] tr/// multiple transliterations Commit 4de6d205aeab9ec737ca35ba4eb61f37cebefc55 failed to take into consideration tr///.