perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl modperl_cmd.c
Date Thu, 05 Sep 2002 03:31:45 GMT
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",
  
  
  

Mime
View raw message