<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">From 1ec77b004a8c66b54b9c68b4201d8797a42b7da2 Mon Sep 17 00:00:00 2001
From: Slaven Rezic &lt;slaven@rezic.de&gt;
Date: Thu, 2 Aug 2012 22:13:24 +0200
Subject: [PATCH] * patch from
 https://mail.gnome.org/archives/gtk-perl-list/2011-November/msg00038.html

---
 t/9.t |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/t/9.t b/t/9.t
index d067434..41438ed 100644
--- a/t/9.t
+++ b/t/9.t
@@ -32,6 +32,7 @@ my $fork_excuse;
   }
 }
 
+my $can_use_threads = eval 'use threads; 1';
 
 print "ok 1\n";
 
@@ -210,6 +211,14 @@ if (Glib-&gt;CHECK_VERSION (2, 14, 0)) {
 
 
 {
+  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";
-- 
1.7.8

</pre></body></html>