SourceCodeManagerUtilities.st
changeset 3865 b76ba0a9cf83
parent 3847 94661e33541c
child 3867 73f23fa5d192
child 3892 3e7000585011
--- a/SourceCodeManagerUtilities.st	Fri Apr 24 02:50:01 2015 +0200
+++ b/SourceCodeManagerUtilities.st	Thu May 07 13:04:58 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 eXept Software AG
               All Rights Reserved
@@ -3863,7 +3861,16 @@
     ].
     box destroy.
 
+    "/ it is not a good idea to return the tag-name here,
+    "/ because it may get cached later when the source is fetched,
+    "/ and the tag could move to another version (making the cached file invalid)
+    "/ without me knowing about that fact.
+    "/ Therefore, we should return the real revision number.
+
+    "/ ouch: however, checkout of a branch seems to not work the same way
+    "/ so we DO return the tag, but suppress caching it. sigh.
     ^ (tagHolder value notEmptyOrNil ifTrue:[tagHolder] ifFalse:[revisionHolder]) value withoutSpaces.
+    "/ ^ revisionHolder value withoutSpaces.
 
     "
      SourceCodeManagerUtilities
@@ -4329,10 +4336,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.320 2015-04-16 09:35:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.321 2015-05-07 11:04:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.320 2015-04-16 09:35:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.321 2015-05-07 11:04:58 cg Exp $'
 ! !