if ((handles = modperl_xs_dl_handles_get(cdata->pool)) { modperl_xs_dl_handles_close(handles); }
static apr_status_t modperl_shutdown(void *data){    PerlInterpreter *perl = (PerlInterpreter *)data;    PL_perl_destruct_level = 2;    MP_TRACE_i(MP_FUNC, "destroying interpreter=0x%lx\n",               (unsigned long)perl);    perl_destruct(perl);    perl_free(perl);    return APR_SUCCESS;}