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

[dougm]

dougm       02/05/11 13:01:09

  Modified:    src/modules/perl modperl_interp.c
  Log:
  win32/bleedperl perl_clone needs the CLONEf_CLONE_HOST flag
  
  Revision  Changes    Path
  1.41      +6 -1      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.40
  retrieving revision 1.41
  diff -u -r1.40 -r1.41
  --- modperl_interp.c  11 May 2002 17:17:34 -0000      1.40
  +++ modperl_interp.c  11 May 2002 20:01:09 -0000      1.41
  @@ -39,6 +39,7 @@
                                        modperl_interp_pool_t *mip,
                                        PerlInterpreter *perl)
   {
  +    UV clone_flags = 0;
       modperl_interp_t *interp = 
           (modperl_interp_t *)apr_pcalloc(p, sizeof(*interp));
       
  @@ -52,7 +53,11 @@
           );
   #endif
   
  -        interp->perl = perl_clone(perl, FALSE);
  +#if defined(WIN32) && defined(CLONEf_CLONE_HOST)
  +        clone_flags |= CLONEf_CLONE_HOST;
  +#endif
  +
  +        interp->perl = perl_clone(perl, clone_flags);
   
           modperl_interp_clone_init(interp);