You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/02/02 19:33:27 UTC
cvs commit: modperl-2.0/t/conf modperl_extra.pl
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);