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 =>
