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

[dougm]

dougm       01/05/03 22:57:53

  Modified:    src/modules/perl mod_perl.c
  Log:
  fix for non-ithread Perls
  
  Revision  Changes    Path
  1.53      +1 -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.52
  retrieving revision 1.53
  diff -u -r1.52 -r1.53
  --- mod_perl.c        2001/05/04 05:49:19     1.52
  +++ mod_perl.c        2001/05/04 05:57:52     1.53
  @@ -7,7 +7,7 @@
       PerlInterpreter *perl = (PerlInterpreter *)cdata->data;
       apr_array_header_t *handles;
   
  -    handles = modperl_xs_dl_handles_get(cdata->pool);
  +    handles = modperl_xs_dl_handles_get(aTHX_ cdata->pool);
   
       PL_perl_destruct_level = 2;
       MP_TRACE_i(MP_FUNC, "destroying interpreter=0x%lx\n",