I fail out if my perl isn't threaded. This makes me pass cpan testers' tests

This commit is contained in:
Dima Kogan 2011-02-03 13:47:56 -08:00
parent 290e1eab5a
commit 1b3fdaa96e

View File

@ -5,10 +5,20 @@ use Getopt::Long;
use Time::HiRes qw( usleep );
use IO::Handle;
use List::MoreUtils qw( first_index );
use Text::ParseWords;
use Config;
if (! $Config{'useithreads'})
{
say "I require a threaded perl";
exit(0);
}
use threads;
use threads::shared;
use Thread::Queue;
use Text::ParseWords;
our $VERSION = '1.05';