File tree Expand file tree Collapse file tree 4 files changed +4
-32
lines changed Expand file tree Collapse file tree 4 files changed +4
-32
lines changed Original file line number Diff line number Diff line change @@ -12,14 +12,7 @@ BEGIN {
12
12
use threads;
13
13
use threads::shared;
14
14
use Thread::Semaphore;
15
-
16
- if ($] == 5.008) {
17
- require ' ./t/test.pl' ; # Test::More work-alike for Perl 5.8.0
18
- } else {
19
- require Test::More;
20
- }
21
- Test::More-> import ();
22
- plan(' tests' => 10);
15
+ use Test::More ' tests' => 10;
23
16
24
17
# ## Basic usage with multiple threads ###
25
18
Original file line number Diff line number Diff line change @@ -12,14 +12,7 @@ BEGIN {
12
12
use threads;
13
13
use threads::shared;
14
14
use Thread::Semaphore;
15
-
16
- if ($] == 5.008) {
17
- require ' ./t/test.pl' ; # Test::More work-alike for Perl 5.8.0
18
- } else {
19
- require Test::More;
20
- }
21
- Test::More-> import ();
22
- plan(' tests' => 12);
15
+ use Test::More ' tests' => 12;
23
16
24
17
# ## Basic usage with multiple threads ###
25
18
Original file line number Diff line number Diff line change @@ -12,14 +12,7 @@ BEGIN {
12
12
use threads;
13
13
use threads::shared;
14
14
use Thread::Semaphore;
15
-
16
- if ($] == 5.008) {
17
- require ' ./t/test.pl' ; # Test::More work-alike for Perl 5.8.0
18
- } else {
19
- require Test::More;
20
- }
21
- Test::More-> import ();
22
- plan(' tests' => 8);
15
+ use Test::More ' tests' => 8;
23
16
24
17
# ## Basic usage with multiple threads ###
25
18
Original file line number Diff line number Diff line change @@ -12,14 +12,7 @@ BEGIN {
12
12
use threads;
13
13
use threads::shared;
14
14
use Thread::Semaphore;
15
-
16
- if ($] == 5.008) {
17
- require ' t/test.pl' ; # Test::More work-alike for Perl 5.8.0
18
- } else {
19
- require Test::More;
20
- }
21
- Test::More-> import ();
22
- plan(' tests' => 10);
15
+ use Test::More ' tests' => 10;
23
16
24
17
# ## Basic usage with multiple threads ###
25
18
You can’t perform that action at this time.
0 commit comments