You are viewing a plain text version of this content. The canonical link for it is here.
Posted to apreq-cvs@httpd.apache.org by jo...@apache.org on 2009/02/14 00:09:57 UTC
svn commit: r744278 -
/httpd/apreq/trunk/glue/perl/xsbuilder/apreq_xs_postperl.h
Author: joes
Date: Fri Feb 13 23:09:55 2009
New Revision: 744278
URL: http://svn.apache.org/viewvc?rev=744278&view=rev
Log:
get rid of sv leak
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=744278&r1=744277&r2=744278&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/xsbuilder/apreq_xs_postperl.h (original)
+++ httpd/apreq/trunk/glue/perl/xsbuilder/apreq_xs_postperl.h Fri Feb 13 23:09:55 2009
@@ -242,9 +242,9 @@
{
HV *stash;
- stash = gv_stashpv(ERROR_CLASS, FALSE);
+ stash = gv_stashpv(class, FALSE);
if (stash == NULL) {
- SV *pkg_name = newSVpv(class, 0);
+ SV *pkg_name = sv_2mortal(newSVpv(class, 0));
Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, pkg_name, Nullsv);
stash = gv_stashpv(class, TRUE);
}