Re: sleep doesn't respond to sigint(2)?

[JamesNC]

Just use a smaller sleep an count or you you can use select to get a really small wait between looks like so

#!/perl/bin/perl -w 
use strict;
$SIG{'INT'} = 'cleanup';
my $c= 0;

while (1) { 
    select(undef, undef, undef, .2);
    $c++;
    if($c == 50 ){  #10 seconds
        print "checking something...\n";
    $c= 0;
    }
} 


sub cleanup {die "\nending\n";}

JamesNC