SvSETMAGIC(buffer);
apr_size_t mpxs_APR__Bucket_read(pTHX_                                 apr_bucket *bucket,                                 SV *buffer,                                 apr_read_type_e block){    apr_size_t len;    const char *str;    apr_status_t rc = apr_bucket_read(bucket, &str, &len, block);    if (!(rc == APR_SUCCESS || rc == APR_EOF)) {        modperl_croak(aTHX_ rc, "APR::Bucket::read");    }    sv_setpvn(buffer, (len ? str : ""), len);    return len;}