From 1ec77b004a8c66b54b9c68b4201d8797a42b7da2 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
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->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