5 require Config; import Config;
6 unless ($Config{'useithreads'}) {
7 print "1..0 # Skip: no useithreads\n";
12 use ExtUtils::testlib;
14 BEGIN { $| = 1; print "1..11\n"};
22 $localtime{$_} = localtime($_);
27 # print "Waiting for lock\n";
30 my $retval = localtime(shift());
36 my $thread = threads->create(sub {
38 my $localtime = $localtime{$arg};
41 my $lt = localtime($arg);
42 if($localtime ne $lt) {
48 print "not ok $mutex # not a safe localtime\n";
54 push @threads, $thread;