diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-12-02 23:23:50 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-12-04 19:52:39 -0700 |
| commit | 7d3522ac673ed909c14c4bb01095ed6c234fc417 (patch) | |
| tree | 553822a4b2de1e15a48d3cdbb2eba112f90b3eab /lib | |
| parent | b7fa5212c68c800daedbb6ede5d311433c398aa5 (diff) | |
| download | perl-7d3522ac673ed909c14c4bb01095ed6c234fc417.tar.gz | |
mktables: Clean up relict usage
The 'status' of a table generated by mktables was split into two
concepts; these lines should have been changed to reflect that split,
but weren't. This didn't affect what actually gets generated.
concept
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index e5316aaac3..1dae19144f 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -6502,7 +6502,7 @@ END my $comment = ""; my $status = $self->status; - if ($status && $status ne $PLACEHOLDER) { + if ($status ne $NORMAL) { my $warn = uc $status_past_participles{$status}; $comment .= <<END; @@ -16628,7 +16628,7 @@ sub write_all_tables() { } elsif ($count == $MAX_UNICODE_CODEPOINTS && ($table == $property || $table->leader == $table) - && $table->property->status ne $PLACEHOLDER) + && $table->property->status ne $NORMAL) { Carp::my_carp("$table unexpectedly matches all Unicode code points. Proceeding anyway."); } |