int is_tainted = PL_tainted;   if (is_tainted) { TAINT_NOT; }
void modperl_croak(pTHX_ apr_status_t rc, const char* func) {    HV *stash;    HV *data;    /* XXX: it'd be nice to arrange for it to load early */    /* XXX: temp loaded from startup.pl    Perl_require_pv(aTHX_ "APR/Error.pm");    if (SvTRUE(ERRSV)) {        Perl_croak(aTHX_ "%s", SvPV_nolen(ERRSV));       }    */        stash = gv_stashpvn("APR::Error", 10, FALSE);    data = newHV();    /* $@ = bless {}, "APR::Error"; */    sv_setsv(ERRSV, sv_bless(newRV_noinc((SV*)data), stash));    sv_setiv(*hv_fetch(data, "rc",   2, 1), rc);    sv_setpv(*hv_fetch(data, "file", 4, 1), CopFILE(PL_curcop));    sv_setiv(*hv_fetch(data, "line", 4, 1), CopLINE(PL_curcop));    sv_setpv(*hv_fetch(data, "func", 4, 1), func);    Perl_croak(aTHX_ Nullch);   }