devel/p5-Glib2/files/patch-threadstest


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

--- t/9.t.orig	Sat Nov 26 17:45:25 2011
+++ t/9.t	Sat Nov 26 17:46:06 2011
@@ -32,6 +32,7 @@
   }
 }
 
+my $can_use_threads = eval 'use threads; 1';
 
 print "ok 1\n";
 
@@ -210,6 +211,14 @@
 
 
 {
+  if (! $can_use_threads) {
+    print "ok 26 # skip, no threads\n";
+    print "ok 27 # skip\n";
+    print "ok 28 # skip\n";
+    print "ok 29 # skip\n";
+    print "ok 30 # skip\n";
+    goto SKIP_CHILD_TESTS;
+  }
   if (! $have_fork) {
     print "ok 26 # skip, no fork: $fork_excuse\n";
     print "ok 27 # skip\n";