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
