Snippets for apmod:perl 2.0.13 from Fedora ppc64le

Sourced from https://kojipkgs.fedoraproject.org/packages/mod_perl/2.0.13/14.fc45/data/logs/ppc64le/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);
      |                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~