File tree Expand file tree Collapse file tree 1 file changed +13
-11
lines changed Expand file tree Collapse file tree 1 file changed +13
-11
lines changed Original file line number Diff line number Diff line change 3
3
use 5.030003;
4
4
use strict;
5
5
use warnings;
6
-
7
- BEGIN { eval ' use threads; use threads::shared 1.51;' }
8
-
9
6
use Test::More;
10
7
use Config;
11
- use Time::HiRes qw| usleep | ;
12
- use Data::Dumper;
13
8
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
9
+ BEGIN {
10
+ # Check if Perl is compiled with thread support
11
+ if (!$Config {useithreads }) {
12
+ plan skip_all => " this $^O perl $] not configured to support iThreads" ;
13
+ done_testing();
14
+ exit 1
15
+ }
19
16
}
20
17
18
+ use threads;
19
+ use threads::shared 1.51;
20
+ use Time::HiRes qw| usleep | ;
21
+ use Data::Dumper;
22
+
21
23
local $Data::Dumper::Indent = 1;
22
24
local $Data::Dumper::Terse = 1;
23
25
@@ -198,8 +200,8 @@ package DB::Queue;
198
200
199
201
use strict;
200
202
use warnings;
203
+ use threads;
201
204
use threads::shared 1.51;
202
- use Thread::Queue;
203
205
use Time::HiRes qw| usleep | ;
204
206
use DBI;
205
207
use Test::More;
You can’t perform that action at this time.
0 commit comments