On Mon, Mar 11, 2002 at 01:46:57PM -0800, Doug MacEachern wrote: > On Tue, 12 Mar 2002, Philippe M. Chiasson wrote: > > > MPXS_tipool_foo(modperl_tipool_t *tp) > > might be better to make that SV *tp, then you can just do: > > PUSHMARK(sp) > XPUSHs(tp); > PUTBACK; > retval = call_sv(...); >
Actually, this won't work ;-( There is one aspect of the problem I forgot to mention. This perl callback is itself called from the tipool grow/shring callbacks, and once in there, I already lost the original RV * to the tipool object. Once again, chicken and egg problem. Only think I can think of is at object creation, in the initial new, to stash the tipool object about to be returned somewhere in the callback data to be used later, but that would be messy. I'd have to write the new as a pure XS() function and so on. I have all tests working now, except for that annoying little problem. Any more suggestions? -------------------------------------------------------------------------------- Philippe M. Chiasson /gozer\@(cpan|ectoplasm)\.org/ 88C3A5A5 (122FF51B/C634E37B) http://gozer.ectoplasm.org/ F9BF E0C2 480E 7680 1AE5 3631 CB32 A107 88C3 A5A5 Q: It is impossible to make anything foolproof because fools are so ingenious. perl -e'$$=\${gozer};{$_=unpack(P7,pack(L,$$));/^JAm_pH\n$/&&print||$$++&&redo}'
msg02460/pgp00000.pgp
Description: PGP signature
