mark_ptr++;
mpxs_usage_1(r, "$r->write(...)");
MP_INLINE apr_size_t modperl_apache_xs_write(pTHX_ SV **mark_ptr, SV **sp_ptr){    modperl_wbucket_t wbucket;    apr_size_t bytes = 0;    mark_ptr++;    wbucket.r = modperl_sv2request_rec(aTHX_ *mark_ptr++);    wbucket.outcnt = 0;    if (wbucket.r->connection->aborted) {        return EOF;    }    while (mark_ptr <= sp_ptr) {        STRLEN len;        char *buf = SvPV(*mark_ptr, len);        modperl_wbucket_write(&wbucket, buf, len);        bytes += len;        mark_ptr++;    }    modperl_wbucket_flush(&wbucket);    /* XXX: ap_rflush if $| */    return bytes;}