From 5bbfa552246f66d64448edd315c53d7d3521da50 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 28 Mar 2012 20:43:58 -0600
Subject: Unicode::UCD::prop_invmap(): Return 's' not 'i' format

The 'i' is an earlier name, and I overlooked changing it when the other
formats were changed.  In Unicode 6.1, the only property that is
affected is Bmg.
---
 lib/Unicode/UCD.pm | 2 +-
 lib/Unicode/UCD.t  | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index b0dc4ca5ef..1640875efe 100644
--- a/lib/Unicode/UCD.pm
+++ b/lib/Unicode/UCD.pm
@@ -3279,7 +3279,7 @@ RETRY:
 
         # All hex-valued properties are really to code points, and have been
         # converted to decimal.
-        $format = 'i';
+        $format = 's';
     }
     elsif ($returned_prop eq 'ToDm') {
         $format = 'ad';
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index dd8a86818f..638a1d8ac6 100644
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -1306,6 +1306,12 @@ foreach my $prop (keys %props) {
         }
     }
 
+    if ($format !~ / ^ (?: a [der]? | ale? | n | sl? ) $ /x) {
+        fail("prop_invmap('$mod_prop')");
+        diag("Unknown format '$format'");
+        next PROPERTY;
+    }
+
     my $base_file;
     my $official;
 
-- 
cgit v1.2.1