Author: pgollucci Date: Fri Jun 5 05:57:17 2009 New Revision: 781917 URL: http://svn.apache.org/viewvc?rev=781917&view=rev Log: Address FreeBSD PR: ports/134749
This is actually a bug in gcc 4.2.1?x where the array is optimized incorrectly causing sefaults during startup. Apparently the bug does not exist in FreeBSD 8 but is an issue in 7.x. Reported by: Troy <t...@twisted.net> Submitted by: Tim Zingelman <zingel...@fnal.gov> Reviewed by: myself Modified: perl/modperl/branches/1.x/Changes perl/modperl/branches/1.x/src/modules/perl/mod_perl.c Modified: perl/modperl/branches/1.x/Changes URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/Changes?rev=781917&r1=781916&r2=781917&view=diff ============================================================================== --- perl/modperl/branches/1.x/Changes (original) +++ perl/modperl/branches/1.x/Changes Fri Jun 5 05:57:17 2009 @@ -10,6 +10,10 @@ =item 1.32-dev +Work around a gcc optimization specific bug which +cuased seg faults on FreeBSD 7.x during mod_perl startup. +[Tim Zingelman <zingel...@fnal.gov>] + =item 1.31 May 11, 2009 Fix static APACI build on Mac OS X. [Gozer] Modified: perl/modperl/branches/1.x/src/modules/perl/mod_perl.c URL: http://svn.apache.org/viewvc/perl/modperl/branches/1.x/src/modules/perl/mod_perl.c?rev=781917&r1=781916&r2=781917&view=diff ============================================================================== --- perl/modperl/branches/1.x/src/modules/perl/mod_perl.c (original) +++ perl/modperl/branches/1.x/src/modules/perl/mod_perl.c Fri Jun 5 05:57:17 2009 @@ -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