dougm       01/06/18 19:38:55

  Modified:    src/modules/perl mod_perl.c
  Log:
  removing dead code
  
  Revision  Changes    Path
  1.139     +0 -23     modperl/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v
  retrieving revision 1.138
  retrieving revision 1.139
  diff -u -r1.138 -r1.139
  --- mod_perl.c        2001/06/19 02:36:38     1.138
  +++ mod_perl.c        2001/06/19 02:38:54     1.139
  @@ -480,29 +480,6 @@
       }
   }
   
  -#if 0
  -/* unload_xs_dso should obsolete this hack */
  -static void cancel_dso_dlclose(void)
  -{
  -    module *modp;
  -
  -    if(!PERL_DSO_UNLOAD)
  -     return;
  -
  -    if(strEQ(top_module->name, "mod_perl.c"))
  -     return;
  -
  -    for(modp = top_module; modp; modp = modp->next) {
  -     if(modp->dynamic_load_handle) {
  -         MP_TRACE_g(fprintf(stderr, 
  -                            "mod_perl: cancel dlclose for %s\n", 
  -                            modp->name));
  -         modp->dynamic_load_handle = NULL;
  -     }
  -    }
  -}
  -#endif
  -
   static void mp_dso_unload(void *data) 
   { 
       array_header *librefs;
  
  
  

Reply via email to