diff options
| author | David Mitchell <davem@iabyn.com> | 2018-12-28 11:29:27 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2019-02-19 13:28:12 +0000 |
| commit | 4ef8bdf9dc2018cb385cf00d11e2e74f0491f8e9 (patch) | |
| tree | 3a9814fc2348b686f6f42660ddbb0648adfc5c66 /regen/mk_invlists.pl | |
| parent | 3680775c4add74dd105f844256620954f5378054 (diff) | |
| download | perl-4ef8bdf9dc2018cb385cf00d11e2e74f0491f8e9.tar.gz | |
PERL_GLOBAL_STRUCT_PRIVATE: fix some const strings
change a couple of
const char * foo[] = { ... }
to
const char * const foo[] = { ... }
Making the string ptrs const means the whole thing is RO and doesn't
appear in data section, making porting/libperl.t happier when building
under -DPERL_GLOBAL_STRUCT_PRIVATE.
Diffstat (limited to 'regen/mk_invlists.pl')
| -rw-r--r-- | regen/mk_invlists.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 55c4afb279..61148282b5 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -2911,7 +2911,7 @@ foreach my $prop (@props) { switch_pound_if ('binary_property_tables', 'PERL_IN_REGCOMP_C'); -print $out_fh "\nconst char * deprecated_property_msgs[] = {\n\t"; +print $out_fh "\nconst char * const deprecated_property_msgs[] = {\n\t"; print $out_fh join ",\n\t", map { "\"$_\"" } @deprecated_messages; print $out_fh "\n};\n"; |