dougm 2002/09/04 20:31:45
Modified: src/modules/perl modperl_cmd.c
Log:
need to free args in modperl_cmd_perl
Revision Changes Path
1.28 +2 -0 modperl-2.0/src/modules/perl/modperl_cmd.c
Index: modperl_cmd.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.c,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- modperl_cmd.c 28 Aug 2002 03:12:46 -0000 1.27
+++ modperl_cmd.c 5 Sep 2002 03:31:45 -0000 1.28
@@ -288,6 +288,8 @@
status = modperl_callback(aTHX_ handler, p, NULL, s, args);
+ SvREFCNT_dec((SV*)args);
+
if (status != OK) {
return SvTRUE(ERRSV) ? SvPVX(ERRSV) :
apr_psprintf(p, "<Perl> handler %s failed with status=%d",
