use List::MoreUtils qw/natatime/;
use Log::Log4perl qw/get_logger/;
use String::ShellQuote qw/shell_quote/;
+use Time::HiRes qw/time/;
use Try::Tiny;
our $VERSION = '5999.000_005';
kill KILL => $pid{$vm} if $kill;
waitpid $pid{$vm}, 0;
}
+ write_file "time-stop-$vm", time;
return if $kill;
my $er = "exec-result-$vm";
sub execlist {
my ($vm, @args) = @_;
+ write_file "time-start-$vm", time;
my $er = "exec-result-$vm";
if ($vm{$vm}) {
my $cmd = ">$er " . shell_quote 'gruntmaster-exec', @args;