SV *retval = apr_perlio_gensym(aTHX_ "APR::PerlIO");
SV *retval = modperl_perl_gensym(aTHX_ "APR::PerlIO");
SV *apr_perlio_apr_file_to_glob(pTHX_ apr_file_t *file, apr_pool_t *pool,                                apr_perlio_hook_e type){    /* XXX: modperl_perl_gensym() cannot be used outside of httpd */    SV *retval = apr_perlio_gensym(aTHX_ "APR::PerlIO");     GV *gv = (GV*)SvRV(retval);     gv_IOadd(gv);     switch (type) {      case APR_PERLIO_HOOK_WRITE:        IoIFP(GvIOp(gv)) = IoOFP(GvIOp(gv)) =            apr_perlio_apr_file_to_PerlIO(aTHX_ file, type);        IoFLAGS(GvIOp(gv)) |= IOf_FLUSH;        IoTYPE(GvIOp(gv)) = IoTYPE_WRONLY;        break;      case APR_PERLIO_HOOK_READ:        IoIFP(GvIOp(gv)) = apr_perlio_apr_file_to_PerlIO(aTHX_ file, type);        IoTYPE(GvIOp(gv)) = IoTYPE_RDONLY;        break;    };      return sv_2mortal(retval);}