CVSSourceCodeManager.st
changeset 2773 2e1a3c72e4f1
parent 2741 3914394ee4dd
child 2776 34e2fea3d517
--- a/CVSSourceCodeManager.st	Tue Jan 31 10:47:40 2012 +0100
+++ b/CVSSourceCodeManager.st	Sun Feb 05 19:13:56 2012 +0100
@@ -4420,7 +4420,7 @@
                         ].
                         info at:#symbolicNames put:tags.
                     ].
-                    (line startsWith:'description:') ifTrue:[inHeaderInfo := false].
+                    (line notNil and:[line startsWith:'description:']) ifTrue:[inHeaderInfo := false].
                 ]
             ]
         ].
@@ -4430,6 +4430,10 @@
             ('CVSSourceCodeManager [warning]: no log for ', fullName) errorPrintCR.
             ^ nil
         ].
+        inStream atEnd ifTrue:[
+            ('CVSSourceCodeManager [warning]: empty log for ', fullName) errorPrintCR.
+            ^ nil
+        ].
 
         "/ strip selected revisions from the total-revisions entry
         s := info at:#numberOfRevisions.
@@ -4484,7 +4488,7 @@
 
     "Created: / 16-11-1995 / 13:25:30 / cg"
     "Modified: / 29-01-1997 / 16:51:30 / stefan"
-    "Modified: / 29-08-2006 / 14:57:26 / cg"
+    "Modified: / 05-02-2012 / 19:03:06 / cg"
 !
 
 revisionLogOfPackageInDirectory:packageDir module:moduleDir
@@ -5071,11 +5075,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.427 2012-01-20 15:43:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.428 2012-02-05 18:13:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.427 2012-01-20 15:43:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.428 2012-02-05 18:13:56 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!