7 use Time::HiRes qw(sleep);
9 use POSIX qw(strftime);
12 use Y::AoC qw(grey red);
15 my $backup = "backup/$cmd";
16 $cmd = "./$cmd" if $cmd !~ /\//;
20 my $b = "$backup-".strftime("%H-%M-%S", localtime(time));
21 system 'cp', $cmd, $b;
22 say grey("\nrunning $cmd @ARGV... ============================");
25 say grey("FAILED: $?");
27 say grey("finished OK");
30 my $inotify = Linux::Inotify2->new;
31 $inotify->watch($cmd, IN_MODIFY);
32 say grey("\nWaiting for modification of $cmd ...");