sv_setsv and perl 5.10

[Marco d'Itri]

After upgrading the system perl from 5.8 to 5.10 (Debian/unstable), my
old INN 1.x package started failing with "Bizarre copy of UNKNOWN"
caused by this sv_setsv() call (the idea is save RAM between each
invocation by deallocating the body SV when it's not needed anymore).

I worked around this by replacing the call with "body = &PL_sv_undef",
but I do not know if this is more broken and/or creates a memory leak.

Please advise.


The relevant code (nnrpd/perl.c) is:

char *HandleHeaders(char *artBody)
{
    SV           *body;

    body = perl_get_sv("body", TRUE);
    sv_setpv(body, artBody);

    rc = perl_call_argv("filter_post", G_EVAL|G_SCALAR, args);

    sv_setsv (body, &PL_sv_undef);
}

-- 
ciao,
Marco