changed: #streamForExtensionFile:package:directory:module:cache:
authorClaus Gittinger <cg@exept.de>
Fri, 01 Jul 2011 15:03:42 +0200
changeset 2399 2b84464f1d41
parent 2398 a6671fa24ee5
child 2400 68c2bf64fe78
changed: #streamForExtensionFile:package:directory:module:cache: check for corrupt version string
AbstractSourceCodeManager.st
--- a/AbstractSourceCodeManager.st	Fri Jul 01 15:03:07 2011 +0200
+++ b/AbstractSourceCodeManager.st	Fri Jul 01 15:03:42 2011 +0200
@@ -314,13 +314,20 @@
         ^ self streamForClass:nil fileName:fileName revision:nil directory:dir module:mod cache:false.
     ].
 
-    extensionsRevisionInfo := self revisionInfoFromString:extensionsRevisionString.
+    extensionsRevisionInfo := self revisionInfoFromString:extensionsRevisionString inClass:nil.
+    extensionsRevisionInfo isNil ifTrue:[
+        self halt:'oops - possibly corrupted extensions version string'.
+        "/ check for umlaut-remover/adder bug from felix in extensionsRevisionString !!!!!!!!
+        ^ self streamForClass:nil fileName:fileName revision:nil directory:dir module:mod cache:false.
+    ].
 
     self assert:(fileName = 'extensions.st').
     self assert:(fileName = extensionsRevisionInfo fileName).
 
     rev := extensionsRevisionInfo revision.
     ^ self streamForClass:nil fileName:fileName revision:rev directory:dir module:mod cache:doCache.
+
+    "Modified: / 01-07-2011 / 13:52:38 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'basic administration'!
@@ -2909,7 +2916,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.243 2011-06-29 14:06:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.244 2011-07-01 13:03:42 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!