perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/conf modperl_extra.pl
Date Thu, 22 Apr 2004 20:00:02 GMT
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);
  
  
  

Mime
View raw message