From b7e0d7f403f7af7f4508562abc42e334252d7ab33ffaf74cf16f87bd18d98b0a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michael=20Schr=C3=B6der?= <mls@suse.com>
Date: Mon, 3 Feb 2014 14:18:25 +0000
Subject: [PATCH] Accepting request 220662 from home:Andreas_Schwab:Factory

- perl-threads.t-timeout.diff: increase timeout in t/op/threads.t

This helps slower architectures since the timeout cannot be canceled and
remains active for the rest of the subtests even though only needed for this
single subtest

OBS-URL: https://build.opensuse.org/request/show/220662
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=106
---
 perl-threads.t-timeout.diff | 26 ++++++++++++++++++++++++++
 perl.changes                |  5 +++++
 perl.spec                   |  2 ++
 3 files changed, 33 insertions(+)
 create mode 100644 perl-threads.t-timeout.diff

diff --git a/perl-threads.t-timeout.diff b/perl-threads.t-timeout.diff
new file mode 100644
index 0000000..ff2d6c4
--- /dev/null
+++ b/perl-threads.t-timeout.diff
@@ -0,0 +1,26 @@
+From 83d6f158711260fab9a16e49203c65f2ba4fb00e Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout@cpan.org>
+Date: Sun, 5 Jan 2014 16:20:58 -0800
+Subject: [PATCH] threads.t: Increase watchdog timeout
+
+PERL_DEBUG_READONLY_COW is too slow for a 60s timeout.
+---
+ t/op/threads.t | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/t/op/threads.t b/t/op/threads.t
+index 61889a9..6fb2410 100644
+--- a/t/op/threads.t
++++ b/t/op/threads.t
+@@ -135,7 +135,7 @@ EOI
+ #
+ # run-time usage of newCONSTSUB (as done by the IO boot code) wasn't
+ # thread-safe - got occasional coredumps or malloc corruption
+-watchdog(60, "process");
++watchdog(180, "process");
+ {
+     local $SIG{__WARN__} = sub {};   # Ignore any thread creation failure warnings
+     my @t;
+-- 
+1.8.5.2
+
diff --git a/perl.changes b/perl.changes
index 9ebdb69..f1fab00 100644
--- a/perl.changes
+++ b/perl.changes
@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Sat Jan 18 19:08:31 UTC 2014 - schwab@suse.de
+
+- perl-threads.t-timeout.diff: increase timeout in t/op/threads.t
+
 -------------------------------------------------------------------
 Wed Jan  8 15:11:45 CET 2014 - mls@suse.de
 
diff --git a/perl.spec b/perl.spec
index e86ee90..5919a55 100644
--- a/perl.spec
+++ b/perl.spec
@@ -40,6 +40,7 @@ Patch6:         perl-saverecontext.diff
 Patch7:         perl-db6.diff
 Patch8:         skip_time_hires.patch
 Patch9:         perl-incfix.diff
+Patch10:        perl-threads.t-timeout.diff
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 PreReq:         perl-base = %version
 #PreReq:         %fillup_prereq
@@ -174,6 +175,7 @@ cp -p %{S:3} .
 %patch8 -p1
 %endif
 %patch9
+%patch10 -p1
 
 %build
 cp -a lib savelib