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

[dougm]

dougm       01/10/21 15:10:11

  Modified:    src/modules/perl modperl_interp.c
  Log:
  temporary workaround to get things running with 5.6.1
  
  Revision  Changes    Path
  1.36      +7 -0      modperl-2.0/src/modules/perl/modperl_interp.c
  
  Index: modperl_interp.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_interp.c,v
  retrieving revision 1.35
  retrieving revision 1.36
  diff -u -r1.35 -r1.36
  --- modperl_interp.c  2001/09/16 00:54:33     1.35
  +++ modperl_interp.c  2001/10/21 22:10:11     1.36
  @@ -95,7 +95,14 @@
       handles = modperl_xs_dl_handles_get(aTHX_ p);
   
       perl_destruct(interp->perl);
  +
  +    /* XXX: big bug in 5.6.1 fixed in 5.7.2+
  +     * XXX: see CLONEf_CLONE_HOST perl_clone() flag
  +     * XXX: try to find a workaround for 5.6.1
  +     */
  +#ifndef WIN32
       perl_free(interp->perl);
  +#endif
   
       if (handles) {
           modperl_xs_dl_handles_close(p, handles);