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

[dougm]

dougm       01/04/12 09:15:21

  Modified:    src/modules/perl mod_perl.c
  Log:
  duh: need to snag @DynaLoader::dl_librefs before they are wiped out by 
perl_destruct()
  
  Revision  Changes    Path
  1.47      +3 -1      modperl-2.0/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
  retrieving revision 1.46
  retrieving revision 1.47
  diff -u -r1.46 -r1.47
  --- mod_perl.c        2001/04/12 03:24:45     1.46
  +++ mod_perl.c        2001/04/12 16:15:19     1.47
  @@ -7,6 +7,8 @@
       PerlInterpreter *perl = (PerlInterpreter *)cdata->data;
       apr_array_header_t *handles;
   
  +    handles = modperl_xs_dl_handles_get(cdata->pool);
  +
       PL_perl_destruct_level = 2;
       MP_TRACE_i(MP_FUNC, "destroying interpreter=0x%lx\n",
                  (unsigned long)perl);
  @@ -14,7 +16,7 @@
       perl_destruct(perl);
       perl_free(perl);
   
  -    if ((handles = modperl_xs_dl_handles_get(cdata->pool))) {
  +    if (handles) {
           modperl_xs_dl_handles_close(handles);
       }