logfile = s->error_log;
modperl_trace_logfile_set(s->error_log);
void modperl_trace_level_set(server_rec *s, const char *level){    if (!level) {        if (!(level = getenv("MOD_PERL_TRACE"))) {            return;        }    }    debug_level = 0x0;    if (strcasecmp(level, "all") == 0) {        debug_level = 0xffffffff;    }    else if (apr_isalpha(level[0])) {        static char debopts[] = MP_TRACE_OPTS;        char *d;        for (; *level && (d = strchr(debopts, *level)); level++) {            debug_level |= 1 << (d - debopts);        }    }    else {        debug_level = atoi(level);    }    debug_level |= 0x80000000;    logfile = s->error_log; /* XXX */    MP_TRACE_a_do(MP_TRACE_dump_flags());}