fprintf(fp, "dump of brigade 0x%lx\n", (unsigned long)bb);
apr_file_printf(file, "dump of brigade 0x%lx\n", (unsigned long)bb);
void modperl_brigade_dump(apr_bucket_brigade *bb, FILE *fp){    apr_bucket *bucket;    int i = 0;#ifndef WIN32    if (fp == NULL) {        fp = stderr;    }    fprintf(fp, "dump of brigade 0x%lx\n",            (unsigned long)bb);    for (bucket = APR_BRIGADE_FIRST(bb);         bucket != APR_BRIGADE_SENTINEL(bb);         bucket = APR_BUCKET_NEXT(bucket))    {        fprintf(fp, "   %d: bucket=%s(0x%lx), length=%ld, data=0x%lx\n",                i, bucket->type->name,                (unsigned long)bucket,                (long)bucket->length,                (unsigned long)bucket->data);        /* fprintf(fp, "       : %s\n", (char *)bucket->data); */        i++;    }#endif}