httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm
Date Sun, 06 Jan 2002 07:08:05 GMT
stas        02/01/05 23:08:05

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  - run the END block only in the parent. (so we won't get the core_scan
  happening both in the parent and the forked child processes)
  
  Revision  Changes    Path
  1.82      +3 -1      httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.81
  retrieving revision 1.82
  diff -u -r1.81 -r1.82
  --- TestRun.pm	6 Jan 2002 06:55:57 -0000	1.81
  +++ TestRun.pm	6 Jan 2002 07:08:05 -0000	1.82
  @@ -276,7 +276,9 @@
       #must eval "" to "install" this END block, otherwise it will
       #always run, a subclass might not want that
   
  -    eval 'END {
  +    eval 'my $parent_pid = $$;
  +          END {
  +             return unless $$ == $parent_pid; # because of fork
                local $?; # preserve the exit status
                eval {
                   Apache::TestRun->new(test_config =>
  
  
  

Mime
View raw message