Author: joes
Date: Sat Feb 14 05:43:50 2009
New Revision: 744402
URL: http://svn.apache.org/viewvc?rev=744402&view=rev
Log:
ugh, looking over the perl source
it seems we need an ENTER & LEAVE
block around Perl_load_module
Modified:
httpd/apreq/trunk/glue/perl/xsbuilder/apreq_xs_postperl.h
Modified: httpd/apreq/trunk/glue/perl/xsbuilder/apreq_xs_postperl.h
URL:
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/xsbuilder/apreq_xs_postperl.h?rev=744402&r1=744401&r2=744402&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/apreq_xs_postperl.h (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/apreq_xs_postperl.h Sat Feb 14
05:43:50 2009
@@ -244,10 +244,11 @@
stash = gv_stashpv(class, FALSE);
if (stash == NULL) {
- SV *pkg_name = newSVpv(class, 0);
- Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, pkg_name, Nullsv);
+ ENTER;
+ Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT,
+ newSVpv(class, 0), Nullsv);
+ LEAVE;
stash = gv_stashpv(class, TRUE);
- SvREFCNT_dec(pkg_name);
}
if (obj != Nullsv)
