perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philippe M. Chiasson" <go...@apache.org>
Subject Re: svn commit: r781917 - in /perl/modperl/branches/1.x: Changes src/modules/perl/mod_perl.c
Date Sat, 06 Jun 2009 02:15:27 GMT


On 05/06/09 01:57 , pgollucci@apache.org wrote:
> 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 <troy@twisted.net>
> Submitted by:   Tim Zingelman <zingelman@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 <zingelman@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;

Small nit, shouldn't it be :
    char **temp_args = argv;

Also, feels like that bit of code needs a warning/comment to explain why
it's there, otherwise, it's tempting to optimize/clean it away.

-- 
Philippe M. Chiasson     GPG: F9BFE0C2480E7680 1AE53631CB32A107 88C3A5A5
http://gozer.ectoplasm.org/       m/gozer\@(apache|cpan|ectoplasm)\.org/


Mime
View raw message