From 1056ecc88529aaca3a812c7a757928986e53392f Mon Sep 17 00:00:00 2001 From: Michael Stapelberg Date: Wed, 5 Oct 2011 23:52:19 +0100 Subject: [PATCH] complete-run: eliminate dependency on EV --- testcases/complete-run.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/testcases/complete-run.pl b/testcases/complete-run.pl index 952f10c6..e7651022 100755 --- a/testcases/complete-run.pl +++ b/testcases/complete-run.pl @@ -27,16 +27,18 @@ use TAP::Parser::Aggregator; use lib qw(lib); use SocketActivation; # the following modules are not shipped with Perl -use EV; use AnyEvent; use AnyEvent::Handle; use AnyEvent::I3 qw(:all); use X11::XCB; -# Install a dummy CHLD handler to overwrite the CHLD handler of AnyEvent / EV. +# We actually use AnyEvent to make sure it loads an event loop implementation. +# Afterwards, we overwrite SIGCHLD: +my $cv = AnyEvent->condvar; + +# Install a dummy CHLD handler to overwrite the CHLD handler of AnyEvent. # AnyEvent’s handler wait()s for every child which conflicts with TAP (TAP # needs to get the exit status to determine if a test is successful). -# XXX: we could maybe also use a different loop than the default loop in EV? $SIG{CHLD} = sub { }; @@ -103,8 +105,6 @@ my $harness = TAP::Harness->new({ }); my $aggregator = TAP::Parser::Aggregator->new(); $aggregator->start(); -my $cv = AnyEvent->condvar; - # We start tests concurrently: For each display, one test gets started. Every # test starts another test after completing. take_job($_) for @wdisplays; -- 2.39.5