(modperl_tls_cleanup_data_t *)apr_pcalloc(p, sizeof(*cdata));
(modperl_tls_cleanup_data_t *)apr_palloc(p, sizeof(*cdata));  cdata->key = key; cdata->data = data;
void modperl_tls_reset_cleanup(apr_pool_t *p, modperl_tls_t *key,                               void *data){    modperl_tls_cleanup_data_t *cdata =        (modperl_tls_cleanup_data_t *)apr_pcalloc(p, sizeof(*cdata));    apr_pool_cleanup_register(p, (void *)cdata,                              modperl_tls_reset,                              apr_pool_cleanup_null);}