diff options
Diffstat (limited to 'dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-timeout.patch')
| -rw-r--r-- | dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-timeout.patch | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-timeout.patch b/dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-timeout.patch new file mode 100644 index 000000000000..c20ae4d73b91 --- /dev/null +++ b/dev-perl/X11-Protocol/files/X11-Protocol-0.56-test-timeout.patch @@ -0,0 +1,38 @@ +From 00202116b49691de109c397f298c55960d2b9896 Mon Sep 17 00:00:00 2001 +From: Slaven Rezic <slaven@rezic.de> +Date: Sat, 25 Nov 2017 09:57:00 +0100 +Subject: timeout tests on inactivity + +Bug: https://rt.cpan.org/Ticket/Display.html?id=123736 +--- + test.pl | 12 +++++++++++- + 1 file changed, 11 insertions(+), 1 deletion(-) + +diff --git a/test.pl b/test.pl +index 8436a47..209a6a6 100644 +--- a/test.pl ++++ b/test.pl +@@ -91,9 +91,19 @@ $gc = getGC($win, $font); + + $x->MapWindow($win); + ++$SIG{ALRM} = sub { die "Timeout" }; ++alarm(5); + while (1) + { +- $x->handle_input until %e = $x->dequeue_event; ++ eval { $x->handle_input until %e = $x->dequeue_event; }; ++ if ($@) ++ { ++ if ($@ =~ /Timeout/) { ++ print "ok 3\n"; ++ last; ++ } ++ die $@; ++ } + if ($e{name} eq "Expose") + { + next unless $e{count} == 0; +-- +2.16.2 + |