stas 2004/04/22 13:00:02
Modified: t/conf modperl_extra.pl
Log:
as of 5.8.4 when spawning ithreads we get an annoying
Attempt to free unreferenced scalar ... perlbug #24660
because of $gtop's CLONE'd object, so skip it for now
Revision Changes Path
1.43 +11 -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.42
retrieving revision 1.43
diff -u -u -r1.42 -r1.43
--- modperl_extra.pl 2 Apr 2004 01:55:59 -0000 1.42
+++ modperl_extra.pl 22 Apr 2004 20:00:02 -0000 1.43
@@ -318,8 +318,18 @@
use warnings;
use strict;
+# XXX: as of 5.8.4 when spawning ithreads we get an annoying
+# Attempt to free unreferenced scalar ... perlbug #24660
+# because of $gtop's CLONE'd object, so skip it for now
+
# GTop v0.12 is the first version that will work under threaded mpms
-use constant HAS_GTOP => eval { require GTop && GTop->VERSION >= 0.12 };
+use constant MPM_IS_THREADED => eval {
+ require Apache::Build;
+ Apache::Build->build_config->mpm_is_threaded();
+};
+use constant HAS_GTOP => eval {
+ !MPM_IS_THREADED && require GTop && GTop->VERSION >= 0.12
+};
my $gtop = HAS_GTOP ? GTop->new : undef;
my @attrs = qw(size vsize resident share rss);
