cvs commit: modperl-2.0/src/modules/perl modperl_tipool.c

[dougm]

dougm       2002/09/04 21:44:23

  Modified:    src/modules/perl modperl_tipool.c
  Log:
  plug memory leak in tipools
  
  Revision  Changes    Path
  1.9       +5 -1      modperl-2.0/src/modules/perl/modperl_tipool.c
  
  Index: modperl_tipool.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_tipool.c,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- modperl_tipool.c  21 Jun 2002 03:02:54 -0000      1.8
  +++ modperl_tipool.c  5 Sep 2002 04:44:23 -0000       1.9
  @@ -182,12 +182,16 @@
   void modperl_tipool_destroy(modperl_tipool_t *tipool)
   {
       while (tipool->idle) {
  +        modperl_list_t *listp;
  +
           if (tipool->func->tipool_destroy) {
               (*tipool->func->tipool_destroy)(tipool, tipool->data,
                                               tipool->idle->data);
           }
           tipool->size--;
  -        tipool->idle = tipool->idle->next;
  +        listp = tipool->idle->next;
  +        free(tipool->idle);
  +        tipool->idle = listp;
       }
   
       if (tipool->busy) {