sys: command: wait for process exit with sub-second granularity

[pve-installer.git] / Proxmox / Sys / Command.pm

diff --git a/Proxmox/Sys/Command.pm b/Proxmox/Sys/Command.pm
index ac505c486049a1a640b93c187993649326615d62..d2dcd42385f585fa10e0ed9f8d74d92834f61185 100644 (file)
--- a/Proxmox/Sys/Command.pm
+++ b/Proxmox/Sys/Command.pm
@@ -9,6 +9,7 @@ use IPC::Open3;
 use IO::Select;
 use String::ShellQuote;
 use POSIX ":sys_wait_h";
+use Time::HiRes qw(usleep);
 
 use Proxmox::Install::ISOEnv;
 use Proxmox::Log;
@@ -52,12 +53,12 @@ my sub wait_for_process {
 
     kill('TERM', $pid) if $params{kill};
 
-    my $timeout = $params{timeout} // 5;
+    my $timeout = ($params{timeout} // 5) * 10; # waiting 0.1 secs per loop
     for (0 .. $timeout) {
        my $terminated = waitpid($pid, WNOHANG);
        return $? if $terminated > 0;
 
-       sleep(1) if $_ != $timeout; # all but last round
+       usleep(100_000) if $_ != $timeout; # sleep 0.1 sec, on all but last round
        kill('KILL', $pid) if $params{kill} && $_ == 1; # just first round
     }