error = ap_pstrcat(p, "Unknown PerlOption: ", str, NULL);
error = apr_pstrcat(p, "Unknown PerlOption: ", str, NULL);
const char *modperl_options_set(ap_pool_t *p, modperl_options_t *o,                                const char *str){    modperl_opts_t opt;    char action = '\0';    const char *error = NULL;    if (*str == '+' || *str == '-') {        action = *(str++);    }    if (!(opt = flags_lookup(o, str))) {        error = ap_pstrcat(p, "Unknown PerlOption: ", str, NULL);        return error;    }        if (action == '-') {        o->opts_remove |= opt;        o->opts_add &= ~opt;        o->opts &= ~opt;    }    else if (action == '+') {        o->opts_add |= opt;        o->opts_remove &= ~opt;        o->opts |= opt;    }    else {        o->opts |= opt;    }    return NULL;}