From 5b80984e4cb952993cde96d5890ea83087fc8e0d Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sat, 25 Nov 2017 09:57:00 +0100
Subject: [PATCH] timeout on inactivity (RT #123736)
---
test.pl | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/test.pl b/test.pl
index 8436a47..9664e6b 100644
--- a/test.pl
+++ b/test.pl
@@ -91,9 +91,16 @@ $gc = getGC($win, $font);
$x->MapWindow($win);
+$SIG{ALRM} = sub { die "Timeout" };
+alarm(30);
while (1)
{
- $x->handle_input until %e = $x->dequeue_event;
+ eval { $x->handle_input until %e = $x->dequeue_event; };
+ if ($@)
+ {
+ last if $@ =~ /Timeout/;
+ die $@;
+ }
if ($e{name} eq "Expose")
{
next unless $e{count} == 0;
--
2.1.4