Snippets for apmod:perl 2.0.13 from Fedora s390x

Sourced from https://kojipkgs.fedoraproject.org/packages/mod_perl/2.0.13/14.fc45/data/logs/s390x/build.log.

• modperl_interp.c:396:17: warning: unused variable ‘p’ [-Wunused-variable]
    396 |     apr_pool_t *p = NULL;
        |                 ^
  

• modperl_interp.c:394:17: warning: unused variable ‘desc’ [-Wunused-variable]
    394 |     const char *desc = NULL;
        |                 ^~~~
  

• modperl_config.h:112:27: warning: unused variable ‘dcfg’ [-Wunused-variable]
    112 |     modperl_config_dir_t *dcfg = modperl_config_dir_get(r)
        |                           ^~~~
  

• modperl_util.c:635:40: warning: format ‘%d’ expects argument of type ‘int’, but argument 3 has type ‘apr_size_t’ {aka ‘long unsigned int’} [-Wformat=]
    635 |         Perl_croak(aTHX_ "Error: read %d bytes, expected %d ('%s')",
        |                                       ~^
        |                                        |
        |                                        int
        |                                       %ld
    636 |                    size, (apr_size_t)r->finfo.size, r->filename);
        |                    ~~~~                 
        |                    |
        |                    apr_size_t {aka long unsigned int}
  

• modperl_util.c:635:59: warning: format ‘%d’ expects argument of type ‘int’, but argument 4 has type ‘long unsigned int’ [-Wformat=]
    635 |         Perl_croak(aTHX_ "Error: read %d bytes, expected %d ('%s')",
        |                                                          ~^
        |                                                           |
        |                                                           int
        |                                                          %ld
    636 |                    size, (apr_size_t)r->finfo.size, r->filename);
        |                          ~~~~~~~~~~~~~~~~~~~~~~~~~         
        |                          |
        |                          long unsigned int
  

• modperl_perl_global.c:378:5: warning: ‘strncpy’ specified bound 256 equals destination size [-Wstringop-truncation]
    378 |     strncpy(svpv->pv, SvPVX(*svpv->sv), sizeof(svpv->pv));
        |     ^
  

• /builddir/build/BUILD/mod_perl-2.0.13-build/mod_perl-2.0.13/xs/APR/Socket/APR__Socket.h:45:30: warning: format ‘%d’ expects argument of type ‘int’, but argument 4 has type ‘apr_size_t’ {aka ‘long unsigned int’} [-Wformat=]
     45 |             Perl_croak(aTHX_ "the 3rd arg (%d) is bigger than the "
        |                              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     46 |                        "length (%d) of the 2nd argument",
     47 |                        (int)SvIV(sv_len), buf_len);
        |                                           ~~~~~~~
        |                                           |
        |                                           apr_size_t {aka long unsigned int}
  

• /builddir/build/BUILD/mod_perl-2.0.13-build/mod_perl-2.0.13/xs/Apache2/Access/Apache2__Access.h:17:22: warning: ‘mpxs_ap_requires’ defined but not used [-Wunused-function]
     17 | static MP_INLINE SV *mpxs_ap_requires(pTHX_ request_rec *r)
        |                      ^~~~~~~~~~~~~~~~
  

• Connection.c:704:24: warning: ‘RETVALSV’ may be used uninitialized [-Wmaybe-uninitialized]
    704 |             RETVALSV = modperl_hash_tie(aTHX_ "APR::Table", RETVALSV, RETVAL);
        |                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  

• RequestRec.c:1305:24: warning: ‘RETVALSV’ may be used uninitialized [-Wmaybe-uninitialized]
   1305 |             RETVALSV = modperl_hash_tie(aTHX_ "APR::Table", RETVALSV, RETVAL);
        |                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  

• RequestRec.c:1262:24: warning: ‘RETVALSV’ may be used uninitialized [-Wmaybe-uninitialized]
   1262 |             RETVALSV = modperl_hash_tie(aTHX_ "APR::Table", RETVALSV, RETVAL);
        |                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  

• RequestRec.c:1219:24: warning: ‘RETVALSV’ may be used uninitialized [-Wmaybe-uninitialized]
   1219 |             RETVALSV = modperl_hash_tie(aTHX_ "APR::Table", RETVALSV, RETVAL);
        |                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  

• RequestRec.c:1176:24: warning: ‘RETVALSV’ may be used uninitialized [-Wmaybe-uninitialized]
   1176 |             RETVALSV = modperl_hash_tie(aTHX_ "APR::Table", RETVALSV, RETVAL);
        |                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~