PERL_GLOBAL_STRUCT_PRIVATE: fix scope.c:arg_counts

t/porting/libperl.t under -DPERL_GLOBAL_STRUCT_PRIVATE doesn't like
non-const static data structures

diff --git a/scope.c b/scope.c
index c51a125..a7c17e8 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -788,7 +788,7 @@ Perl_save_alloc(pTHX_ I32 size, I32 pad)
 }
 
 
 }
 
 

-static U8 arg_counts[] = {
+static const U8 arg_counts[] = {

     0, /* SAVEt_ALLOC              */
     0, /* SAVEt_CLEARPADRANGE      */
     0, /* SAVEt_CLEARSV            */
     0, /* SAVEt_ALLOC              */
     0, /* SAVEt_CLEARPADRANGE      */
     0, /* SAVEt_CLEARSV            */