Can the xs wizards please verify that I did the reference counting
right? I'm afraid I might have a leak here.
+static MP_INLINE SV *mpxs_Apache__Filter_ctx(pTHX_
+ ap_filter_t *filter,
+ SV *data)
+{
+ modperl_filter_ctx_t *ctx = (modperl_filter_ctx_t *)(filter->ctx);
+
+ if (data != Nullsv) {
+ ctx->data = SvREFCNT_inc(data);
+ }
+
+ return ctx->data ? SvREFCNT_inc(ctx->data) : &PL_sv_undef;
+}
--
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
