From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 17 Aug 2011 21:17:01 +0000 (-0600)
Subject: mktables: Adjust now that have fixed set_type()
X-Git-Tag: accepted/trunk/20130322.191538~2193^2~130
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b2abbe5b935b3e998cb18d8606075ee4cb82ab67;p=platform%2Fupstream%2Fperl.git

mktables: Adjust now that have fixed set_type()

A previous commit fixed a bug in set_type().  By re-ordering it, the
table will have already been added, so don't need to do it again.
---

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index d946bbc..3189710 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -10934,16 +10934,15 @@ sub filter_numeric_value_line {
         my $usource = property_ref('kIRG_USource');
         $usource->set_type($STRING) if defined $usource;
 
-        # This property is to be considered binary, so change all the values
-        # to Y.
+        # This property is to be considered binary (it says so in
+        # http://www.unicode.org/reports/tr38/)
         $iicore = property_ref('kIICore');
         if (defined $iicore) {
-            $iicore->add_match_table('Y') if ! defined $iicore->table('Y');
+            $iicore->set_type($BINARY);
 
             # We have to change the default map, because the @missing line is
             # misleading, given that we are treating it as binary.
             $iicore->set_default_map('N');
-            $iicore->set_type($BINARY);
         }
 
         return;