Greg Sabino Mullane wrote:
>
>Hmm...what if we did this?:
>
>Index: plperl.c
>===================================================================
>RCS file: /projects/cvsroot/pgsql/src/pl/plperl/plperl.c,v
>retrieving revision 1.92
>diff -r1.92 plperl.c
>671c671
>< XPUSHs(sv_2mortal(newSVpv("my $_TD=$_[0]; shift;", 0)));
>---
>
>
>> XPUSHs(sv_2mortal(newSVpv("our $_TD=$_[0]; shift;", 0)));
>>
>>
>
>
>
>
That would probably work, but it would ONLY deal with the issue for
$_TD. In your function $event will still hit this problem.
see next email for sidcussion of warnings.
cheers
andrew