use strict;
use warnings;
use Test::More 'tests' => 1;
use Config;
SKIP: {
skip "Threads not available", 1 unless $Config{useithreads};
my $out = `$^X -Mblib t/threads.p 2>&1`;
is($out, '' => 'No destruct error');
}
# EOF
use strict;
use warnings;
use Test::More 'tests' => 1;
use Config;
SKIP: {
skip "Threads not available", 1 unless $Config{useithreads};
my $out = `$^X -Mblib t/threads.p 2>&1`;
is($out, '' => 'No destruct error');
}
# EOF