diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-02 22:14:24 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-02 22:32:22 -0700 |
| commit | 0911a63df6aeaa6d22129e5be33256d3ea1235cc (patch) | |
| tree | 2974dc64a2d6db4966b31dbbb3389754c1a30076 /lib | |
| parent | 20863809fc1a465b942f84ae1005781e1cafb994 (diff) | |
| download | perl-0911a63df6aeaa6d22129e5be33256d3ea1235cc.tar.gz | |
mktables: force code point tables are range size 1
As stated in the comment, the Perl core is expecting a different
range value definition than this program outputs. But this isn't a
problem if the range size is set to 1. Currently the core only reads in
tables that map to code points, so do it only for them.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index bb54843a37..c0ad2f1248 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -6278,6 +6278,12 @@ END $self->_set_format($format); + # Core Perl has a different definition of mapping ranges than we do, + # that is applicable mainly to mapping code points, so for tables + # where it is possible that core Perl could be used to read it, + # make it range size 1 to prevent possible confusion + $self->set_range_size_1(1) if $format eq $HEX_FORMAT; + return $self->SUPER::write( ($self->property == $block) ? 7 # block file needs more tab stops |