perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Steve Hay <steve....@uk.radan.com>
Subject Re: [PATCH] Re: What Perl configuration is required for mp2 on Win32?
Date Fri, 04 Feb 2005 16:14:35 GMT
Stas Bekman wrote:

>>OK, new patch attached.  This compiles cleanly and fixes the perl-malloc 
>>issues for me.  Hope it's OK for you too.
>>    
>>
>
>Almost there. env needs to be **env. 
>
Oops.  Yes, of course.  Thanks.

- Steve

>Here is the patch that I've committed:
>
>Index: src/modules/perl/mod_perl.c
>===================================================================
>--- src/modules/perl/mod_perl.c (revision 151089)
>+++ src/modules/perl/mod_perl.c (working copy)
>@@ -542,11 +542,17 @@
>   */
>  static apr_status_t modperl_sys_init(void)
>  {
>+    int argc = 0;
>+    char **argv = NULL, **env = NULL;
>+
>      MP_TRACE_i(MP_FUNC, "mod_perl sys init\n");
>
>+    /* not every OS uses those vars in PERL_SYS_INIT3 macro */
>+    argc = argc; argv = argv; env = env;
>+
>+    PERL_SYS_INIT3(&argc, &argv, &env);
>+
>  #if 0 /*XXX*/
>-    PERL_SYS_INIT(0, NULL);
>-
>  #ifdef PTHREAD_ATFORK
>      if (!ap_exists_config_define("PERL_PTHREAD_ATFORK_DONE")) {
>          PTHREAD_ATFORK(Perl_atfork_lock,
>@@ -581,9 +587,8 @@
>
>      modperl_perl_pp_unset_all();
>
>-#if 0 /*XXX*/
>      PERL_SYS_TERM();
>-#endif
>+
>      return APR_SUCCESS;
>  }
>  
>



------------------------------------------------
Radan Computational Ltd.

The information contained in this message and any files transmitted with it are confidential
and intended for the addressee(s) only.  If you have received this message in error or there
are any problems, please notify the sender immediately.  The unauthorized use, disclosure,
copying or alteration of this message is strictly forbidden.  Note that any views or opinions
presented in this email are solely those of the author and do not necessarily represent those
of Radan Computational Ltd.  The recipient(s) of this message should check it and any attached
files for viruses: Radan Computational will accept no liability for any damage caused by any
virus transmitted by this email.


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message