joes 2004/07/02 09:04:33
Modified: glue/perl/xsbuilder apreq_xs_postperl.h
Log:
table2sv macros also need protection against becoming orphans; add a parent
ref to their magic table also.
Revision Changes Path
1.33 +2 -2 httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h
Index: apreq_xs_postperl.h
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -r1.32 -r1.33
--- apreq_xs_postperl.h 2 Jul 2004 04:40:08 -0000 1.32
+++ apreq_xs_postperl.h 2 Jul 2004 16:04:33 -0000 1.33
@@ -282,7 +282,7 @@
}
#define apreq_xs_sv2table(sv) ((apr_table_t *) SvIVX(SvRV(sv)))
-#define apreq_xs_table2sv(t,class) apreq_xs_table_c2perl(aTHX_ t, env,
class,NULL)
+#define apreq_xs_table2sv(t,class,parent) apreq_xs_table_c2perl(aTHX_ t,
env, class,parent)
#define apreq_xs_do(attr) (items == 1 ? apreq_xs_table_keys \
: apreq_xs_##attr##_table_values)
@@ -359,7 +359,7 @@
if (items == 1) { \
apr_table_t *t = apreq_xs_##attr##_sv2table(sv); \
if (t != NULL) \
- XPUSHs(sv_2mortal(apreq_xs_table2sv(t,class))); \
+ XPUSHs(sv_2mortal(apreq_xs_table2sv(t,class,sv))); \
PUTBACK; \
break; \
} \
