--- 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