[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apreq-cvs
Subject:    svn commit: r744278 -
From:       joes () apache ! org
Date:       2009-02-13 23:09:57
Message-ID: 20090213230958.B836823888F1 () eris ! apache ! org
[Download RAW message or body]

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);
     }


[prev in list] [next in list] [prev in thread] [next in thread]