We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent bf8a7f5 commit e005a34Copy full SHA for e005a34
t/90-segv-threads.t
@@ -3,12 +3,21 @@
3
use 5.030003;
4
use strict;
5
use warnings;
6
-use threads;
7
-use threads::shared 1.51;
8
-use Time::HiRes qw| usleep |;
+
+BEGIN { eval 'use threads; use threads::shared 1.51;' }
9
use Test::More;
10
+use Config;
11
+use Time::HiRes qw| usleep |;
12
use Data::Dumper;
13
14
+# Check if Perl is compiled with thread support
15
+if (!$Config{useithreads}) {
16
+ plan skip_all => "this $^O perl $] not configured to support iThreads";
17
+ done_testing();
18
+ exit 1
19
+}
20
21
local $Data::Dumper::Indent = 1;
22
local $Data::Dumper::Terse = 1;
23
0 commit comments