perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Randy Kobes <ra...@theoryx5.uwinnipeg.ca>
Subject Re: svn commit: r411224 - /perl/modperl/trunk/src/modules/perl/mod_perl.c
Date Fri, 02 Jun 2006 18:25:08 GMT
On Fri, 2 Jun 2006, pgollucci@apache.org 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 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

I think you want the (void) for the 2nd case?

-- 
best regards,
Randy


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


Mime
View raw message