On Fri, 2 Jun 2006, [EMAIL PROTECTED] wrote:
Author: pgollucci
Date: Fri Jun 2 11:05:31 2006
New Revision: 411224
URL: http://svn.apache.org/viewvc?rev=411224&view=rev
Log:
PERL_SYS_INIT3() on WIN32 is a do {}
Report by: Steve Hay [EMAIL PROTECTED]
Modified:
perl/modperl/trunk/src/modules/perl/mod_perl.c
Modified: perl/modperl/trunk/src/modules/perl/mod_perl.c
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/mod_perl.c?rev=411224&r1=411223&r2=411224&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/mod_perl.c (original)
+++ perl/modperl/trunk/src/modules/perl/mod_perl.c Fri Jun 2 11:05:31 2006
@@ -558,7 +558,11 @@
/* not every OS uses those vars in PERL_SYS_INIT3 macro */
argc = argc; argv = argv; env = env;
+#ifdef WIN32
(void)PERL_SYS_INIT3(&argc, &argv, &env);
+#else
+ PERL_SYS_INIT3(&argc, &argv, &env);
+#endif /* WIN32 */
#if 0 /*XXX*/
#ifdef PTHREAD_ATFORK
I think you want the (void) for the 2nd case?
--
best regards,
Randy
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
