diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-03-28 20:43:58 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-04-04 12:33:39 -0600 |
| commit | 5bbfa552246f66d64448edd315c53d7d3521da50 (patch) | |
| tree | d0c24d8972dd3cf5b915b7a11479b66a0390a8c9 /lib | |
| parent | 57ef7c84d0edb2d2e89bbab264bcdfaf37312a51 (diff) | |
| download | perl-5bbfa552246f66d64448edd315c53d7d3521da50.tar.gz | |
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.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Unicode/UCD.pm | 2 | ||||
| -rw-r--r-- | lib/Unicode/UCD.t | 6 |
2 files changed, 7 insertions, 1 deletions
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; |