--- 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 $'
! !