Process: The answer to an expected prompt is correctly sent now.

[GB.UTIL]
* BUG: Process: The answer to an expected prompt is correctly sent now.
This commit is contained in:
gambas 2020-02-12 17:28:57 +01:00
parent 311d05d473
commit 166231e89f

View file

@ -43,7 +43,7 @@ Public Sub ExpectAfter_Read()
For I = 0 To $aExpect.Max Step 2
If RTrim($sBuffer) Like $aExpect[I] Then
If $aExpect[I + 1] Then Print #Me, $aExpect[I + 1]
If $aExpect[I + 1] Then Print #hProcess, $aExpect[I + 1]
Object.Raise(hProcess, "Prompt", [$aExpect[I], $aExpect[I + 1]])
$sBuffer = ""
Endif