commit 3a0b3cb88bee8e71aaf36a6ddfc930218088a915 from: Omar Polo date: Sun Jul 10 11:34:08 2022 UTC fix some leftovers better to use a control variable rather than `last' from a subroutine commit - 508e5f5f044ac52bcc9f4d6155deb6f48dce16a4 commit + 3a0b3cb88bee8e71aaf36a6ddfc930218088a915 blob - 4cb2c9b585b815be705268ee445ba32899b5d4c6 blob + 53be63d814355ec2c0e329dd4900963b2439ecea --- contrib/amused-monitor +++ contrib/amused-monitor @@ -26,6 +26,8 @@ use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC); use Getopt::Long qw(:config bundling); use Pod::Usage; +my $run = 1; + my $pfile; my $trim = ""; @@ -268,7 +270,7 @@ sub hinput { } elsif ($ch eq "s") { save; } elsif ($ch eq "q") { - last; + $run = 0; } } elsif (defined $key) { # todo? @@ -305,7 +307,7 @@ getnums; getstatus; render; -while (1) { +while ($run) { $poll->poll(0.25); my $now = clock_gettime(CLOCK_MONOTONIC); my $elapsed = $now - $tbefore; @@ -329,11 +331,6 @@ while (1) { endwin; save; -# my $kid; -# do { -# $kid = waitpid(-1, WNOHANG); -# say "kid is $kid"; -# } while $kid > 0; kill 'INT', $mpid; wait;