On Monday 01 May 2006 10:34, Nick Ing-Simmons wrote:
> > the second one croaks, it doesn't get a chance to release the first... Is
> > there some equivalent of try/catch in XS, or a way to register the
> > compiled regexp as a Perl object, to be released automatically when not
> > needed?
> try/catch (i.e. eval {} in perl speak) is a little tricky to do from pure
> XS. I usually call (a trivial) perl sub and use G_EVAL on the call.
> So Nick C's suggestion (to another question) of using SAVEDESTRUCTOR_X
> is probably the easiest.
>
> ENTER;
> SAVEDESTRUCTOR_X(your_cleanup_func, pointer_to_thing);
> ...
> risky_stuff();
> LEAVE
Yes, that's it - thanks. I suppose there's no harm in using just
SAVEDESTRUCTOR - I don't need the "context" to call pregfree (I
think :-) )...
Bye
Vasek
