diff options
| author | Karl Williamson <khw@cpan.org> | 2020-10-17 07:36:32 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-11-02 09:36:08 -0700 |
| commit | 3ef83dc34df59346719352833a594e66f6958b42 (patch) | |
| tree | 7383ee77b9def2443ace6fdcacc8943a47dfe6cd /regen/mk_invlists.pl | |
| parent | 33b570413b33a4dcbfc49adef206bc73cf5db270 (diff) | |
| download | perl-3ef83dc34df59346719352833a594e66f6958b42.tar.gz | |
uni_keywords.h: Confine the scope to core
All symbols in here are for core only use
Diffstat (limited to 'regen/mk_invlists.pl')
| -rw-r--r-- | regen/mk_invlists.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 7df5b7d69e..8c243bef70 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -3355,12 +3355,15 @@ my $keywords_fh = open_new('uni_keywords.h', '>', {style => '*', by => 'regen/mk_invlists.pl', from => "mph.pl"}); +print $keywords_fh "\n#if defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD)\n\n"; + my ($second_level, $seed1, $length_all_keys, $smart_blob, $rows) = MinimalPerfectHash::make_mph_from_hash(\%keywords); print $keywords_fh MinimalPerfectHash::make_algo($second_level, $seed1, $length_all_keys, $smart_blob, $rows, undef, undef, undef, 'match_uniprop' ); +print $keywords_fh "\n#endif /* #if defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD) */\n"; push @sources, 'regen/mph.pl'; read_only_bottom_close_and_rename($keywords_fh, \@sources); |