#!/usr/bin/perl -w
# Intermittently hangs on win32.
# The hangs appear to be a deadlock with both threads waiting
# on a critical section.

use strict;
use threads;
$|=1;

sub do_one_thread {
   my $kid = shift;
   warn "kid=$kid $$ before require\n";
   # Adding more requires seems to increase the chance of a hang.
   require File::Find;
   require CGI;
   warn "kid=$kid $$ after require\n";
}

sub do_threads {
   my $nthreads = shift;
   my @kids = ();
   for my $i (1..$nthreads) {
      my $t = threads->new(\&do_one_thread, $i);
      warn "parent $$: continue\n";
      push(@kids, $t);
   }
   for my $t (@kids) {
      warn "parent $$: waiting for join\n";
      $t->join();
      warn "parent $$: thread exited\n";
   }
}

for my $i (1..1000) {
   print "i=$i:---\n";
   do_threads(2);
}