Snippets for apmod:perl 2.0.13 from Fedora i686

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

• Interpreter.c:284:15: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
    284 |         TARGi((IV)RETVAL, 1);
        |               ^