diff options
| author | Karl Williamson <khw@cpan.org> | 2019-03-09 11:09:01 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-03-12 09:53:21 -0600 |
| commit | 62e88327b15915f71012e8501cf47ee921583f7d (patch) | |
| tree | f43b7b6d9d351bc4e7de624c1e0e8ff2414a5a65 /regen/mk_invlists.pl | |
| parent | 98a1b8f75b3617ff62804a29d59d65bad554e835 (diff) | |
| download | perl-62e88327b15915f71012e8501cf47ee921583f7d.tar.gz | |
regen/mk_invlists.pl: Comment/white-space only
Diffstat (limited to 'regen/mk_invlists.pl')
| -rw-r--r-- | regen/mk_invlists.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 147ce0101e..77f3304639 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -2425,8 +2425,9 @@ foreach my $property (sort # thing if there is no '=' my ($lhs, $rhs) = $property =~ / ( [^=]* ) ( =? .*) /x; - # $lhs then becomes the property name. See if there are any synonyms - # for this property. + # $lhs then becomes the property name. + + # See if there are any synonyms for this property. if (exists $prop_name_aliases{$lhs}) { # If so, do the combinatorics so that a new entry is added for @@ -2452,6 +2453,7 @@ foreach my $property (sort # processing. But we haven't dealt with it yet. If we already have a # property with the identical characteristics, this becomes just a # synonym for it. + if (exists $enums{$tag}) { push @this_entries, $property; } @@ -2813,7 +2815,8 @@ foreach my $prop (@props) { =~ $integer_or_float_re && $xlated{$new_invlist[$i]} =~ $integer_or_float_re - && $xlated{$new_invlist[$i-1]} + 1 == $xlated{$new_invlist[$i]}; + && $xlated{$new_invlist[$i-1]} + 1 + == $xlated{$new_invlist[$i]}; push @temp, $new_invlist[$i]; } @new_invlist = @temp; |