From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 23 Jan 2012 19:43:42 +0000 (-0700)
Subject: Unicode::UCD::prop_invmap(): Use regex to get trie
X-Git-Tag: v5.15.8~196
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/66800fdc0e3e5392f604897d5d0e863a36d19c9f

Unicode::UCD::prop_invmap(): Use regex to get trie

This should speed up this test slightly
---

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index b1acac4..4480546 100644
--- a/lib/Unicode/UCD.pm
+++ b/lib/Unicode/UCD.pm
@@ -2566,8 +2566,7 @@ RETRY:
     # The Name table is valid, but we need to execute the special code below
     # to add in the algorithmic-defined name entries.
     if (ref $swash eq ""
-        || $swash->{'TYPE'} eq 'ToBlk'
-        || $swash->{'TYPE'} eq 'ToNa')
+        || $swash->{'TYPE'} =~ / ^ To (?: Blk | Na) $ /x)
     {
 
         # Get the short name of the input property, in standard form