pgollucci at p6m7g8
Jun 3, 2009, 12:04 PM
Post #1 of 1
(1103 views)
Permalink
|
|
Re: ports/134749 possible fix
|
|
Nice! Very Nice.
I'll definitely try this tonight. Lets take this to the dev [at] p 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 [at] perl
For additional commands, e-mail: dev-help [at] perl
|
