]> git.sur5r.net Git - i3/i3/commitdiff
tests: don’t overwrite $timeout, kill timer when done
authorMichael Stapelberg <michael@stapelberg.de>
Tue, 4 Oct 2011 22:36:43 +0000 (23:36 +0100)
committerMichael Stapelberg <michael@stapelberg.de>
Tue, 4 Oct 2011 22:36:43 +0000 (23:36 +0100)
testcases/t/lib/i3test.pm

index 14ec8d32bda69ac7eb0e5c0e68e3cdac69a173fb..9230c5efcd23633d9e755f9f85d16c45ed076c3a 100644 (file)
@@ -104,9 +104,10 @@ sub wait_for_event {
     };
 
     # Trigger timeout after $timeout seconds (can be fractional)
-    my $timeout = AE::timer $timeout, 0, sub { warn "timeout"; $cv->send(0) };
+    my $t = AE::timer $timeout, 0, sub { warn "timeout ($timeout secs)"; $cv->send(0) };
 
     my $result = $cv->recv;
+    undef $t;
     return $result;
 }