A far more appropriate signal for non-quitting interrupts,
unfortunately only available on BSDs (bound to ctrl-T).
Keep fallback to SIGQUIT as support on linux does not seem imminent
:(http://lkml.iu.edu/hypermail/linux/kernel/1411.0/03374.html).
my (@lines, @values, @order);
my (@lines, @values, @order);
-$SIG{QUIT} = \&show_stat;
+$SIG{$_} = \&show_stat for exists $SIG{INFO} ? 'INFO' : 'QUIT';
$SIG{ALRM} = sub {
show_lines();
alarm $opt{interval} if defined $opt{interval} and $opt{interval} > 0;
$SIG{ALRM} = sub {
show_lines();
alarm $opt{interval} if defined $opt{interval} and $opt{interval} > 0;