Test 10 creates 100 threads that do 'require IO'. This can use a lot
of memory and other resources. reduce it to 10.
{
local $SIG{__WARN__} = sub {}; # Ignore any thread creation failure warnings
my @t;
{
local $SIG{__WARN__} = sub {}; # Ignore any thread creation failure warnings
my @t;
my $thr = threads->create( sub { require IO });
last if !defined($thr); # Probably ran out of memory
push(@t, $thr);
my $thr = threads->create( sub { require IO });
last if !defined($thr); # Probably ran out of memory
push(@t, $thr);