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);