I now enforce a threaded perl during testing, not during execution. This should pacify cpantesters

This commit is contained in:
Dima Kogan 2011-02-04 20:30:19 -08:00
parent 82207174ea
commit 61ff77f9f4
2 changed files with 9 additions and 8 deletions

View File

@ -6,14 +6,6 @@ use Time::HiRes qw( usleep );
use IO::Handle; use IO::Handle;
use List::MoreUtils qw( first_index ); use List::MoreUtils qw( first_index );
use Text::ParseWords; use Text::ParseWords;
use Config;
if (! $Config{'useithreads'})
{
print "I require a threaded perl\n";
exit(0);
}
use threads; use threads;
use threads::shared; use threads::shared;
use Thread::Queue; use Thread::Queue;

View File

@ -1,5 +1,14 @@
#!/usr/bin/perl #!/usr/bin/perl
# require a threaded perl for my tests. This block lifted verbatim from the cpantesters wiki
BEGIN {
use Config;
if (! $Config{'useithreads'}) {
print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
exit(0);
}
}
use Test::More tests => 1; use Test::More tests => 1;
use Test::Script::Run; use Test::Script::Run;