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 33use 5.030003;
44use strict;
55use warnings;
6-
7- BEGIN { eval ' use threads; use threads::shared 1.51;' }
8-
96use Test::More;
107use Config;
11- use Time::HiRes qw| usleep | ;
12- use Data::Dumper;
138
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+ }
1916}
2017
18+ use threads;
19+ use threads::shared 1.51;
20+ use Time::HiRes qw| usleep | ;
21+ use Data::Dumper;
22+
2123local $Data::Dumper::Indent = 1;
2224local $Data::Dumper::Terse = 1;
2325
@@ -198,8 +200,8 @@ package DB::Queue;
198200
199201use strict;
200202use warnings;
203+ use threads;
201204use threads::shared 1.51;
202- use Thread::Queue;
203205use Time::HiRes qw| usleep | ;
204206use DBI;
205207use Test::More;
You can’t perform that action at this time.
0 commit comments