perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r411224 - /perl/modperl/trunk/src/modules/perl/mod_perl.c
Date Fri, 02 Jun 2006 18:05:32 GMT
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 steve.hay@uk.radan.com

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



Mime
View raw message