Re: Apache::Peek and perl-5.6.0

[Doug MacEachern]

On Mon, 11 Sep 2000, Christian Gilmore wrote:

> Doug,
> 
> Have you successfully built Apache::Peek with perl-5.6.0? I had no
> difficulties with perl-5.005. Seeing as though I'm not terribly happy
> about digging under the XS covers, I thought I'd just pop the question to
> you before trying to go too deep into perl's internals.

hmm, i have a Peek.xs dated aug 8, 1999 that compiles with 5.6.0, but it
only supports the Dump() function (the one used by Apache::Status):

#include "modules/perl/mod_perl.h"

MODULE = Apache::Peek   PACKAGE = Apache::Peek

void
Dump(sv, lim=4)
    SV *sv
    I32 lim

    PPCODE:
    {
    SV *pv_lim_sv = perl_get_sv("Apache::Peek::pv_limit", FALSE);
    STRLEN pv_lim = pv_lim_sv ? SvIV(pv_lim_sv) : 0;
    SV *dumpop = perl_get_sv("Apache::Peek::dump_ops", FALSE);
    I32 save_dumpindent = PL_dumpindent;
    request_rec *r = perl_request_rec(NULL);
    PerlIO *fp = PerlIO_tmpfile();

    PL_dumpindent = 2;
    
    do_sv_dump(0, fp, sv, 0, lim, dumpop && SvTRUE(dumpop), pv_lim);
    PerlIO_rewind(fp);
    ap_send_fd(fp, r);
    PerlIO_close(fp);
    PL_dumpindent = save_dumpindent;
    }