mercurial/HGCommandParser.st
changeset 165 4f6432cf4240
parent 151 527a1e85aef8
child 169 3e156584235f
--- a/mercurial/HGCommandParser.st	Sat Dec 15 18:02:33 2012 +0100
+++ b/mercurial/HGCommandParser.st	Sun Dec 16 01:31:06 2012 +0100
@@ -261,11 +261,12 @@
         ].
     ].
     rev setMessage: message.
+    rev setNonLazy.
 
     ^rev
 
     "Created: / 13-11-2012 / 09:45:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 05-12-2012 / 23:32:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-12-2012 / 00:38:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 parseName
@@ -447,13 +448,12 @@
     "Filenames are 0-byte separated. Yeah, Mercurial is easy
      to parse"
 
-    | filenames zero |
-    zero := Character codePoint: 0.
+    | filenames |
     filenames := OrderedCollection new.
     [ stream atEnd ] whileFalse:[
         | filename |
 
-        filename := stream upTo: zero.
+        filename := stream nextLine.
         "/ Workaround for Mercurial 2.3.x which includes trailing new line
         (filename size ~~ 1 or:[filename first ~~ Character cr]) ifTrue:[
             filenames add:  filename
@@ -462,7 +462,7 @@
     ^filenames.
 
     "Created: / 16-11-2012 / 22:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 17-11-2012 / 19:40:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-12-2012 / 00:09:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 parseCommandLog