diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-06-11 09:56:56 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-11 10:19:58 -0600 |
| commit | cb6d347447b642c0af2d1a378f437459e42ef4f1 (patch) | |
| tree | 86a713a61d54a77b7d21cae0e388b89c9d5e6db4 /lib | |
| parent | 72a8661833939ac176d65aaa6cbd4ab72b1030a9 (diff) | |
| download | perl-cb6d347447b642c0af2d1a378f437459e42ef4f1.tar.gz | |
PATCH: [perl #113584] tr/// multiple transliterations
Commit 4de6d205aeab9ec737ca35ba4eb61f37cebefc55 failed to take into
consideration tr///.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/utf8_heavy.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 675a8d1d47..23e06f9a9a 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -533,10 +533,10 @@ sub _loose_name ($) { if ($list && ! $list_is_from_mktables) { my $taint = substr($list,0,0); # maintain taint - # Separate the extras from the code point list, and for - # user-defined properties, make sure the latter are well-behaved - # for downstream code. - if ($user_defined) { + # Separate the extras from the code point list, and make sure + # user-defined properties and tr/// are well-behaved for + # downstream code. + if ($user_defined || $none) { my @tmp = split(/^/m, $list); my %seen; no warnings; |