changeset 21185 | b2ecc061106c |
parent 21184 | 190ae0ab71c2 |
child 21200 | 6de129aead00 |
child 21247 | 9ee1206fc247 |
--- a/OSProcess.st Sat Dec 24 00:22:02 2016 +0100 +++ b/OSProcess.st Sat Dec 24 01:45:45 2016 +0100 @@ -415,12 +415,16 @@ |ok| [ - self startProcess. - ok := self waitUntilFinished. + ok := self startProcess. + ok ifTrue:[ + ok := self waitUntilFinished. + ]. ] ifCurtailed:[ "/ we were interrupted - "/ terminate the os-command (and all of its forked commands) - self terminateGroup. + pid notNil ifTrue:[ + self terminateGroup. + ]. ]. ^ ok. !