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