Re: Creating a thread pool within a callback cause segfault

[Gensky Regnus]

Looks like the problem is with creating threads within the event 
callback. This snippet of code segfaults.

#!perl
use threads;
use threads::shared;
use Event;
$Event::DebugLevel = 5;

my $var : shared;

my $timer = Event->timer(
   desc => 'thread_test',
   interval => 1,
   cb       => sub {
       async {$var++}
   }
);
Event::loop;