mercurial/HGCommandParser.st
changeset 77 b6070a017acd
parent 71 bd4cfb10a262
child 80 8f300696b26b
--- a/mercurial/HGCommandParser.st	Sat Nov 17 11:02:01 2012 +0000
+++ b/mercurial/HGCommandParser.st	Sat Nov 17 19:40:19 2012 +0000
@@ -159,13 +159,18 @@
     zero := Character codePoint: 0.
     filenames := OrderedCollection new.
     [ stream atEnd ] whileFalse:[
-        filenames add: (stream upTo: zero)
+        | filename |
+
+        filename := stream upTo: zero.
+        "/ Workaround for Mercurial 2.3.x which includes trailing new line
+        (filename size ~~ 1 or:[filename first ~~ Character cr]) ifTrue:[
+            filenames add:  filename
+        ]
     ].
-    filenames removeLast. "/remove trailing newline
     ^filenames.
 
     "Created: / 16-11-2012 / 22:35:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 16-11-2012 / 23:57:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 17-11-2012 / 19:40:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 parseCommandLog