stas 2004/02/02 10:33:27
Modified: t/conf modperl_extra.pl Log: creating GTop objects for GTop < 0.12 will segfault under threaded mpms Revision Changes Path 1.41 +2 -1 modperl-2.0/t/conf/modperl_extra.pl Index: modperl_extra.pl =================================================================== RCS file: /home/cvs/modperl-2.0/t/conf/modperl_extra.pl,v retrieving revision 1.40 retrieving revision 1.41 diff -u -u -r1.40 -r1.41 --- modperl_extra.pl 25 Jan 2004 02:42:50 -0000 1.40 +++ modperl_extra.pl 2 Feb 2004 18:33:27 -0000 1.41 @@ -318,7 +318,8 @@ use warnings; use strict; -use constant HAS_GTOP => eval { require GTop }; +# GTop v0.12 is the first version that will work under threaded mpms +use constant HAS_GTOP => eval { require GTop && GTop->VERSION >= 0.12 }; my $gtop = HAS_GTOP ? GTop->new : undef; my @attrs = qw(size vsize resident share rss);