-sub skipall {
- my ($msg) = @_;
- require Test::More;
- Test::More::plan(skip_all => $msg);
-}
-
-use Config qw/%Config/;
-
-BEGIN {
- my $t_v = '1.67';
- my $ts_v = '1.14';
- skipall 'This perl wasn\'t built to support threads'
- unless $Config{useithreads};
- skipall 'perl 5.13.4 required to test thread safety' unless $] >= 5.013004;
- skipall "threads $t_v required to test thread safety"
- unless eval "use threads $t_v; 1";
- skipall "threads::shared $ts_v required to test thread safety"
- unless eval "use threads::shared $ts_v; 1";
-}
-
-use Test::More; # after threads