Don't test threads if this perl wasn't built with ithreads enabled

[perl/modules/Variable-Magic.git] / t / 40-threads.t

diff --git a/t/40-threads.t b/t/40-threads.t
index 9e4c11b1a7b97354e87fcccc23e2fa6cd8229f7f..2215c592aaa3a72e739e4f1f11d08d3ac573ca4c 100644 (file)
--- a/t/40-threads.t
+++ b/t/40-threads.t
@@ -3,6 +3,16 @@
 use strict;
 use warnings;
 
+use Config qw/%Config/;
+
+BEGIN {
+ if (!$Config{useithreads}) {
+  require Test::More;
+  Test::More->import;
+  plan(skip_all => 'This Perl wasn\'t built to support threads');
+ }
+}
+
 use threads; # Before Test::More
 use threads::shared;