vncserver: refactor

This commit is contained in:
Dmitry Maksyoma 2021-08-13 00:10:40 +12:00
parent 3ef297a7cd
commit ac51bd1d57

View File

@ -373,12 +373,12 @@ sub Kill
chop($pid = `cat $pidFile`);
warn "Killing Xvnc process ID $pid\n";
if (kill 0, $pid) {
if (&IsProcessRunning($pid)) {
system("kill $pid");
&WaitForTimeLimitOrSubReturningTrue(1, sub {
!IsProcessRunning($pid)
});
if (kill 0, $pid) {
if (&IsProcessRunning($pid)) {
print "Xvnc seems to be deadlocked. Kill the process manually and then re-run\n";
print " ".$0." -kill ".$opt{'-kill'}."\n";
print "to clean up the socket files.\n";