CVSSourceCodeManager.st
changeset 3263 fb60d533ee9c
parent 3260 5b3469abfc4f
child 3264 60a1c6b42336
--- a/CVSSourceCodeManager.st	Tue May 07 18:45:04 2013 +0200
+++ b/CVSSourceCodeManager.st	Tue May 07 18:45:39 2013 +0200
@@ -686,6 +686,8 @@
         |index root|
 
         cvsRoot := self getCVSROOTForModule:aModule.
+        cvsRoot := cvsRoot withoutPrefix:':local:'.
+
         root := self repositoryTopDirectoryFromCVSRoot:cvsRoot.
 
         "/ create Repository
@@ -980,6 +982,8 @@
     ].
 
     cvsRoot := self getCVSROOTForModule:moduleName.
+    cvsRoot := cvsRoot withoutPrefix:':local:'.
+
     command := self cvsExecutable.
     (command includes:Character space) ifTrue:[
         command := '"' , command , '"'
@@ -2931,12 +2935,18 @@
 checkForExistingContainer:fileName inModule:moduleDir directory:packageDir
     "check for a container to exist"
 
-    |fullName ret ret2 cvsRoot cmd tempDir outputStream errorStream|
+    |fullName ret ret2 cvsRoot cmd tempDir outputStream errorStream isLocalCVSRoot|
+
+    cvsRoot := self getCVSROOTForModule:moduleDir.
+    cvsRoot isNil ifTrue:[^ false].
+
+    (isLocalCVSRoot := (cvsRoot startsWith:':local:')) ifTrue:[
+        cvsRoot := cvsRoot withoutPrefix:':local:'.
+    ].
 
     fullName := moduleDir , '/' , packageDir , '/' , fileName.
 
-    RemoteCVS ifFalse:[
-        cvsRoot := self getCVSROOTForModule:moduleDir.
+    (RemoteCVS not or:[isLocalCVSRoot]) ifTrue:[
         cvsRoot asFilename exists ifTrue:[
             "/
             "/ with local CVS - simply check if that file exists
@@ -2944,8 +2954,9 @@
             (fullName endsWith:',v') ifFalse:[
                 fullName := fullName , ',v'.
             ].
-            ^ (cvsRoot , '/' , fullName) asFilename exists.
+            ^ (cvsRoot asFilename / fullName) exists.
         ].
+        ^ false
     ].
 
     tempDir := self createTempDirectory:nil forModule:nil.
@@ -5183,11 +5194,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.451 2013-05-07 15:29:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.452 2013-05-07 16:45:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.451 2013-05-07 15:29:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.452 2013-05-07 16:45:39 cg Exp $'
 ! !