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

[dougm]

dougm       02/05/11 10:17:34

  Modified:    src/modules/perl modperl_interp.c
  Log:
  need to PERL_SET_CONTEXT before modperl_xs_dl_handles_get does av_clear,
  else segv
  
  Revision  Changes    Path
  1.40      +2 -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.39
  retrieving revision 1.40
  diff -u -r1.39 -r1.40
  --- modperl_interp.c  8 Jan 2002 01:13:28 -0000       1.39
  +++ modperl_interp.c  11 May 2002 17:17:34 -0000      1.40
  @@ -76,6 +76,8 @@
       apr_array_header_t *handles;
       dTHXa(interp->perl);
   
  +    PERL_SET_CONTEXT(interp->perl);
  +
       MP_TRACE_i(MP_FUNC, "interp == 0x%lx\n",
                  (unsigned long)interp);