diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-10-09 14:35:08 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-12 13:40:49 -0700 |
| commit | d7078fb7eb2e34db4cceb513aadbd2caee8513b2 (patch) | |
| tree | 6a0c591247dcc461c429dba8a0144ce8d472f963 | |
| parent | a67f160a9f70cb25e4ef3e777fba4eabf58417d6 (diff) | |
| download | perl-d7078fb7eb2e34db4cceb513aadbd2caee8513b2.tar.gz | |
mktables: Can't generate simple casing tables
The simple as opposed to the full casing tables weren't able to be
generated correctly because I was passing the name of a table instead of
its object. Normally these tables are generated at all, but I turned
generation of them on temporarily for development purposes, and found
this bug. So there is no test case that can be generated for this fix.
| -rw-r--r-- | lib/unicore/mktables | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index b2ca9cc825..cf2677a99b 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -9872,7 +9872,7 @@ sub setup_special_casing { # The simple version's name in each mapping merely has an 's' in front # of the full one's my $simple = property_ref('s' . $case); - $simple->initialize($case) if $simple->to_output_map(); + $simple->initialize($full) if $simple->to_output_map(); } return; |