5 if ($ENV{'PERL_CORE'}){
7 unshift @INC, '../lib';
10 require($ENV{PERL_CORE} ? "./test.pl" : "./t/test.pl");
13 if (! $Config{'useithreads'}) {
14 skip_all(q/Perl not compiled with 'useithreads'/);
20 use ExtUtils::testlib;
24 ### Start of Testing ###
31 $localtime{$_} = localtime($_);
36 $threads[$_] = threads->create(sub {
38 my $localtime = $localtime{$arg};
41 my $lt = localtime($arg);
42 if ($localtime ne $lt) {
51 is($threads[$_]->join(), 0, 'localtime() thread-safe');