Select Code to Download

    $inter->{THR}->kill('SIGTERM');

    $inter->{THR} = ref threads->create(sub{$thread->(\$inter->{INT1})
+});

$t = async{ sleep 1000 };;

print ref $t;;
threads

Usage: $thr->kill('SIG...') at HardThread.pm line 23.

    $inter->{THR} = threads->create(sub{$thread->(\$inter->{INT1})});

Invalid value for shared scalar at HardThread.pm line 29.

    $inter->{THR} = shared_clone( threads->create(sub{$thread->(\$inte
+r->{INT1})}) );