commit - 508e5f5f044ac52bcc9f4d6155deb6f48dce16a4
commit + 3a0b3cb88bee8e71aaf36a6ddfc930218088a915
blob - 4cb2c9b585b815be705268ee445ba32899b5d4c6
blob + 53be63d814355ec2c0e329dd4900963b2439ecea
--- contrib/amused-monitor
+++ contrib/amused-monitor
use Getopt::Long qw(:config bundling);
use Pod::Usage;
+my $run = 1;
+
my $pfile;
my $trim = "";
} elsif ($ch eq "s") {
save;
} elsif ($ch eq "q") {
- last;
+ $run = 0;
}
} elsif (defined $key) {
# todo?
getstatus;
render;
-while (1) {
+while ($run) {
$poll->poll(0.25);
my $now = clock_gettime(CLOCK_MONOTONIC);
my $elapsed = $now - $tbefore;
endwin;
save;
-# my $kid;
-# do {
-# $kid = waitpid(-1, WNOHANG);
-# say "kid is $kid";
-# } while $kid > 0;
kill 'INT', $mpid;
wait;