Bugfix in HGCommand>>execute (close command output pipe)
authorJan Vrany <jan.vrany@fit.cvut.cz>
Thu, 06 Dec 2012 12:50:59 +0000
changeset 141 8a1c1e04391b
parent 140 feab684bc4dc
child 142 67e8c5ab8db2
Bugfix in HGCommand>>execute (close command output pipe)
mercurial/HGCommand.st
--- a/mercurial/HGCommand.st	Thu Dec 06 04:07:46 2012 -0800
+++ b/mercurial/HGCommand.st	Thu Dec 06 12:50:59 2012 +0000
@@ -427,7 +427,7 @@
     (Debugging and:[OperatingSystem isUNIXlike]) ifTrue:[
         output := output contents asString readStream
     ].
-    retval := self parse: output.
+    [ retval := self parse: output ] ensure:[ output close.].
     sema wait.
     ^self status: status result: retval
 
@@ -439,7 +439,7 @@
     "Modified: / 17-12-2011 / 19:22:00 / dundee"
     "Modified (format): / 27-12-2011 / 15:53:54 / dundee"
     "Modified: / 14-11-2012 / 13:41:57 / jv"
-    "Modified: / 22-11-2012 / 23:55:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 06-12-2012 / 12:35:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGCommand methodsFor:'private'!