diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-03-06 10:39:15 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-03-19 16:51:25 -0600 |
| commit | b577d4a6d9513ee5434c94e3104462fdd700d6a7 (patch) | |
| tree | a20c813a480dabcd283263faaf119ed133f9e620 | |
| parent | 294705a8c512970205c6ab76033cb59703476097 (diff) | |
| download | perl-b577d4a6d9513ee5434c94e3104462fdd700d6a7.tar.gz | |
Unicode::UCD::prop_invmap: Fix returned format
The type of an 'a' table should not be changed to 's'. This bug
happened currently only if someone changed mktables to output one of the
optional files.
| -rw-r--r-- | lib/Unicode/UCD.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm index 221c1c4902..b0dc4ca5ef 100644 --- a/lib/Unicode/UCD.pm +++ b/lib/Unicode/UCD.pm @@ -3303,7 +3303,7 @@ RETRY: # to indicate that need to add code point to it. $format = 'ar'; } - elsif ($format ne 'n') { + elsif ($format ne 'n' && $format ne 'a') { # All others are simple scalars $format = 's'; |