summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/perl/perl-5.14.3/debian/m68k_thread_stress.diff
diff options
context:
space:
mode:
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.14.3/debian/m68k_thread_stress.diff')
-rw-r--r--meta/recipes-devtools/perl/perl-5.14.3/debian/m68k_thread_stress.diff47
1 files changed, 47 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.14.3/debian/m68k_thread_stress.diff b/meta/recipes-devtools/perl/perl-5.14.3/debian/m68k_thread_stress.diff
new file mode 100644
index 0000000..1c3b6b5
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.3/debian/m68k_thread_stress.diff
@@ -0,0 +1,47 @@
1Upstream-Status:Inappropriate [debian patches]
2From 55a718425dc4612ac01850ef786f75f072b20b9e Mon Sep 17 00:00:00 2001
3From: Niko Tyni <ntyni@debian.org>
4Date: Mon, 8 Sep 2008 20:48:14 +0300
5Subject: Disable some threads tests on m68k for now due to missing TLS.
6
7Bug-Debian: http://bugs.debian.org/495826
8Bug-Debian: http://bugs.debian.org/517938
9
10Patch-Name: debian/m68k_thread_stress.diff
11---
12 dist/threads-shared/t/stress.t | 4 ++++
13 dist/threads-shared/t/waithires.t | 6 ++++++
14 2 files changed, 10 insertions(+), 0 deletions(-)
15
16diff --git a/dist/threads-shared/t/stress.t b/dist/threads-shared/t/stress.t
17index 652a3e6..2f1b576 100644
18--- a/dist/threads-shared/t/stress.t
19+++ b/dist/threads-shared/t/stress.t
20@@ -11,6 +11,10 @@ BEGIN {
21 print("1..0 # SKIP Broken under HP-UX 10.20\n");
22 exit(0);
23 }
24+ if ($^O eq 'linux' && $Config{archname} =~ /^m68k/) {
25+ print("1..0 # Skip: no TLS on m68k yet <http://bugs.debian.org/495826>\n");
26+ exit(0);
27+ }
28 }
29
30 use ExtUtils::testlib;
31diff --git a/dist/threads-shared/t/waithires.t b/dist/threads-shared/t/waithires.t
32index 3c3e852..349c5b4 100644
33--- a/dist/threads-shared/t/waithires.t
34+++ b/dist/threads-shared/t/waithires.t
35@@ -16,6 +16,12 @@ BEGIN {
36 if (! eval 'use Time::HiRes "time"; 1') {
37 Test::skip_all('Time::HiRes not available');
38 }
39+
40+ if ($^O eq 'linux' && $Config{archname} =~ /^m68k/) {
41+ print("1..0 # Skip: no TLS on m68k yet <http://bugs.debian.org/495826>\n");
42+ exit(0);
43+ }
44+
45 }
46
47 use ExtUtils::testlib;