5 if ($ENV{'PERL_CORE'}){
7 unshift @INC, '../lib';
10 unless ($Config{'useithreads'}) {
11 print "1..0 # Skip: no useithreads\n";
16 use ExtUtils::testlib;
18 BEGIN { $| = 1; print "1..11\n"};
26 $localtime{$_} = localtime($_);
31 # print "Waiting for lock\n";
34 my $retval = localtime(shift());
40 my $thread = threads->create(sub {
42 my $localtime = $localtime{$arg};
45 my $lt = localtime($arg);
46 if($localtime ne $lt) {
52 print "not ok $mutex # not a safe localtime\n";
58 push @threads, $thread;