CVSSourceCodeManager.st
changeset 3711 2c25e442c4d2
parent 3685 d5d6862b4cc4
child 3754 6e38fdb567fe
--- a/CVSSourceCodeManager.st	Thu Jan 22 09:43:24 2015 +0100
+++ b/CVSSourceCodeManager.st	Sun Jan 25 01:26:29 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 AbstractSourceCodeManager subclass:#CVSSourceCodeManager
 	instanceVariableNames:''
 	classVariableNames:'CVSRoot RemoteCVS CVSModuleRoots CMD_checkout CVSTempDir
@@ -1492,7 +1494,7 @@
     rightPart := rightPart copyFrom:idx+1.
 
     "/ originalVersionString:
-    "/      '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.495 2014-12-14 17:02:26 cg Exp $'
+    "/      '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.496 2015-01-25 00:26:29 cg Exp $'
     "/ leftPart:
     "/      '$Header: /cvs/stx/stx/goodies/refactoryBrowser/lint/RBLiteralArrayContainsCommaRule.st,v'
     "/ dateAndTimePart:
@@ -2711,9 +2713,13 @@
             "/ new code:
             cls revisionString notEmptyOrNil ifTrue:[
                 newString := self updatedRevisionStringOf:cls forRevision:newRevision andUser:OperatingSystem getLoginName with:cls revisionString.
-                self updateVersionMethodOf:cls for:newString.
-                cls revision ~= newRevision ifTrue:[
-                    'CVSSourceCodeManager [error]: failed to update revisionString' errorPrintCR
+                newString isNil ifTrue:[
+                    'CVSSourceCodeManager [error]: failed to update revisionString (class checked in, but no revision method)' errorPrintCR
+                ] ifFalse:[
+                    self updateVersionMethodOf:cls for:newString.
+                    cls revision ~= newRevision ifTrue:[
+                        'CVSSourceCodeManager [error]: failed to update revisionString' errorPrintCR
+                    ].
                 ].
                 self activityNotification:'Done.'.
             ] ifFalse:[
@@ -5545,11 +5551,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.495 2014-12-14 17:02:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.496 2015-01-25 00:26:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.495 2014-12-14 17:02:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.496 2015-01-25 00:26:29 cg Exp $'
 ! !