my $has_threads = $INC{'threads.pm'} ? 1 : 0;
my $tid = $has_threads ? threads->tid() : 0;

sub CLONE {
    $tid = threads->tid() if $has_threads;
}