This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PERL_GLOBAL_STRUCT_PRIVATE: dump.c:op_class_names
authorDavid Mitchell <davem@iabyn.com>
Fri, 17 Mar 2017 13:51:46 +0000 (13:51 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 17 Mar 2017 14:10:14 +0000 (14:10 +0000)
t/porting/libperl.t under -DPERL_GLOBAL_STRUCT_PRIVATE doesn't like
non-const static data structures

dump.c

diff --git a/dump.c b/dump.c
index c5e3a79..7cdebfe 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -930,7 +930,7 @@ const struct flag_to_name op_flags_names[] = {
 
 
 /* indexed by enum OPclass */
-const char * op_class_names[] = {
+const char * const op_class_names[] = {
     "NULL",
     "OP",
     "UNOP",