Re: [log4perl-devel] A threading question

[John L. <joh...@gm...>]

Hi

Of course, that should be

my $main_tid = threads->tid;
sub propagate_hup {
   if (threads->tid == $main_tid) {
       for my $t (threads->list) { $t->kill('HUP') unless $t->tid ==
$main_tid; }
   }
   return 1;
}

Regards, John