Re: ports/134749 possible fix

["Philip M. Gollucci" <pg...@p6m7g8.com>]

Nice! Very Nice.

I'll definitely try this tonight.  Lets take this to the dev@p.a.o list
so it goes upstream.

It must be fixed in gcc in -CURRENT since I couldn't duplicate it.

Tim Zingelman wrote:
> I find that the following (also attached) patch solved the problem for me.
> 
> --- src/modules/perl/mod_perl.c.orig    2009-06-03 11:01:38.000000000 -0500 I'
> +++ src/modules/perl/mod_perl.c 2009-06-03 11:02:59.000000000 -0500
> @@ -596,6 +596,7 @@
>  void perl_startup (server_rec *s, pool *p)
>  {
>      char *argv[] = { NULL, NULL, NULL, NULL, NULL, NULL, NULL };
> +    char **temp_argv=argv;
>      char **entries, *dstr;
>      int status, i, argc=1;
>      dPSRV(s);
> @@ -679,7 +680,7 @@
>      MP_TRACE_g(fprintf(stderr, "..."));
> 
>  #ifdef PERL_SYS_INIT
> -    PERL_SYS_INIT(&argc,(char***)&argv);
> +    PERL_SYS_INIT(&argc,(char***)&temp_argv);
>  #endif
> 
>  #ifndef perl_init_i18nl10n
> 
> 
> The problem has to do with the gcc compiler treatment (ignore?) of the &
> on &argv because the variable type is an array.
> 
> Since gcc is involved, I'll mention this is the base gcc in 7.1 release,
> gcc version 4.2.1 20070719  [FreeBSD].
> 
> Just drop the file into /usr/ports/www/mod_perl/files/patch-argv-fix,
> make, make deinstall, make reinstall.
> 
> Hope this helps,
> 
>  - Tim
> 


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