#!/usr/bin/perl -w
use threads;
$SIG{"INT"}=\&sigInt;
my $thread=threads->create('test')->detach();
while(1) { sleep 100; }
sub test { sleep 100; }
sub sigInt { exit; }
-mark
In reply to Re^4: Exiting a script with an 'infinitely looping' thread
by markseger
in thread Exiting a script with an 'infinitely looping' thread
by markseger
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |