diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-05-16 10:27:36 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-02 08:29:24 -0600 |
| commit | c6005d23508ec68d2332c45486cba6937f51fca2 (patch) | |
| tree | 7c2ec234d9180e2d947ac0a2db5e2bf45f5752fd /lib | |
| parent | 696609bfbe8294c4390cf37fc4cbf7c1d2481782 (diff) | |
| download | perl-c6005d23508ec68d2332c45486cba6937f51fca2.tar.gz | |
perluniprops: Work correctly with PLACEHOLDER entries
mktables generates perluniprops.pod, but until this commit, PLACEHOLDER
entries could confuse it.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 08763512cd..17fd1930ef 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -16150,16 +16150,16 @@ sub write_all_tables() { } elsif ($count == $MAX_UNICODE_CODEPOINTS && ($table == $property || $table->leader == $table) - && $table->property->status != $PLACEHOLDER) + && $table->property->status ne $PLACEHOLDER) { Carp::my_carp("$table unexpectedly matches all Unicode code points. Proceeding anyway."); } - if ($table->fate == $SUPPRESSED) { + if ($table->fate >= $SUPPRESSED) { if (! $is_property) { my @children = $table->children; foreach my $child (@children) { - if ($child->fate != $SUPPRESSED) { + if ($child->fate < $SUPPRESSED) { Carp::my_carp_bug("'$table' is suppressed and has a child '$child' which isn't"); } } |