svn commit: r411224 - /perl/modperl/trunk/src/modules/perl/mod_perl.c

On Fri, 2 Jun 2006, pgollucciapache.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.hayuk.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/tr
unk/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-unsubscribeperl.apache.org
For additional commands, e-mail: dev-helpperl.apache.org

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

I'm going to go hide in a corner for a few hours.


-- 
------------------------------------------------------------
------------
Philip M. Gollucci (pgolluccip6m7g8.com) 323.219.4708
Consultant / http://p6m7g8.n
et/Resume/resume.shtml
Senior Software Engineer - TicketMaster - http://ticketmaster.com
1024D/A79997FA F357 0FDD 2301 6296 690F  6A47 D55A 7172 A799
97F

"It takes a minute to have a crush on someone, an hour
to like someone,
and a day to love someone, but it takes a lifetime to forget
someone..."

------------------------------------------------------------
---------
To unsubscribe, e-mail: dev-unsubscribeperl.apache.org
For additional commands, e-mail: dev-helpperl.apache.org