Re: plperl and inline functions -- first draft

On Nov 29, 2009, at 4:40 AM, Tom Lane wrote:

> Alexey Klyukin <alexk@commandprompt.com> writes:
>
>> Isn't it also the case with the existing plperl code ? I've noticed that free(prodesc) is called when it's no longer
used(i.e. in plperl_compile_callback:1636), but refcount of desc->reference is never decremented. 
>
> I've been experimenting with this and confirmed that there is a leak;
> not only in the DO patch but in the pre-existing code, if a plperl
> function is redefined repeatedly.
>
> Is this the correct way to release the SV* reference?
>
>         if (reference)
>             SvREFCNT_dec(reference);


Yes. In fact this only decreases the reference count, making the interpreter free the memory referred to when it
becomes0, but since prodesc->reference has refcount of 1 this would do the right thing. 

--
Alexey Klyukin                    http://www.CommandPrompt.com/
The PostgreSQL Company - Command Prompt, Inc