From 1ec77b004a8c66b54b9c68b4201d8797a42b7da2 Mon Sep 17 00:00:00 2001

From 1ec77b004a8c66b54b9c68b4201d8797a42b7da2 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <[email protected]>
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