diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-12-26 11:45:16 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-12-29 21:11:48 -0700 |
| commit | 9f877a47f789742824ee225ae9b6b73c2a70f515 (patch) | |
| tree | 1baae3f50091f6aa630c23a5af29b0ed52476581 /lib | |
| parent | e75669bdf36ed94d228b2f277b4b9fcae89004f3 (diff) | |
| download | perl-9f877a47f789742824ee225ae9b6b73c2a70f515.tar.gz | |
mktables: Can skip processing suppressed properties
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 79c05d1726..970d0bcde6 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -11379,6 +11379,10 @@ sub finish_Unicode() { # need to be finished up. next if $property == $perl; + # Nor do we need to do anything with properties that aren't going to + # be output. + next if $property->fate == $SUPPRESSED; + # Handle the properties that have more than one possible default if (ref $property->default_map) { my $default_map = $property->default_map; |