diff options
author | Karl Williamson <khw@cpan.org> | 2018-12-31 20:19:30 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-12-31 20:50:45 -0700 |
commit | e5360b121cc74527da8d72c4af291637c009becc (patch) | |
tree | 42ffdd08e7098d2fc72bc520278cb5423c2d3786 /regen/mk_invlists.pl | |
parent | 259f90aedc9d27456d405fd07a78cdda7903055f (diff) | |
download | perl-e5360b121cc74527da8d72c4af291637c009becc.tar.gz |
Revert "regen/mk_invlists.pl: Fix bug when 2 ident tables"
This reverts commit 7e9b4fe4d85e9b669993bf96a7e33ffff3197e20, with
additional changes to get things to compile
It turns out I was wrong about the underlying cause that commit
addressed, and it is easier to just use the existing constants that get
generated.
Diffstat (limited to 'regen/mk_invlists.pl')
-rw-r--r-- | regen/mk_invlists.pl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index c5c62d804c..8100d0f694 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -2465,12 +2465,10 @@ foreach my $property (sort # And a #define for all simple names equivalent to a perl property, # except those that begin with 'is' or 'in'; if (exists $perl_tags{$tag} && $property !~ / ^ i[ns] | = /x) { - my $name = $table_name_prefix . uc(sanitize_name($define)); - push @perl_prop_synonyms, "#define $name" - . " $defined_to"; push @perl_prop_synonyms, "#define " - . "${name}_invlist" - . " ${defined_to}_invlist"; + . $table_name_prefix + . uc(sanitize_name($define)) + . " $defined_to"; } } } @@ -2934,7 +2932,7 @@ output_table_trailer(); print $out_fh join "\n", "\n", #'# ifdef DOINIT', #"\n", - "/* Synonyms for perl properties, and their tables */", + "/* Synonyms for perl properties */", @perl_prop_synonyms, #"\n", #"# endif /* DOINIT */", |