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 {
1212use threads;
1313use threads::shared;
1414use 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;
2316
2417# ## Basic usage with multiple threads ###
2518
Original file line number Diff line number Diff line change @@ -12,14 +12,7 @@ BEGIN {
1212use threads;
1313use threads::shared;
1414use 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;
2316
2417# ## Basic usage with multiple threads ###
2518
Original file line number Diff line number Diff line change @@ -12,14 +12,7 @@ BEGIN {
1212use threads;
1313use threads::shared;
1414use 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;
2316
2417# ## Basic usage with multiple threads ###
2518
Original file line number Diff line number Diff line change @@ -12,14 +12,7 @@ BEGIN {
1212use threads;
1313use threads::shared;
1414use 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;
2316
2417# ## Basic usage with multiple threads ###
2518
You can’t perform that action at this time.
0 commit comments