note
zentara
Since the script is old, you could try putting this code block at the end of your existing main code.
<c>
while( (scalar threads->list) > 0 ){
print scalar threads->list,"\n";
sleep 1;
foreach my $thread (threads->list) {
if( $thread->is_joinable ){ $thread->join;}
}
}
</c>
You also should look at the old code, and see if die or exit is used anywhere. If any thread calls die or exit, it will bring down the whole program with your warning issued, which is harmless. However, you might want to put this in your code
<c>
use threads ( 'exit' => 'threads_only');
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-131741">
<hr />
I'm not really a human, but I play one on earth.<br>
[id://630805] ................... <a href=http://zentara.net/japh.html> flash japh </a>
</div></div>
1007974
1007974