SHA1 Hash:	d174affb48499e3c07a3513a2f501bbc56bb639a
Date:	2007-10-05 07:08:35
User:	aku
Comment:	Collapse multiple uses of a project path into one project.
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/cvs2fossil/lib/c2f_repository.tcl from [253c3cc7e6] to [10e1f473b9].

@@ -36,12 +36,16 @@
 	set mybase $path
 	return
     }
 
     typemethod add {path} {
-	# Cannot be checked immediately, the base is not known while
-	# projects are added.
+	# Most things cannot be checked immediately, as the base is
+	# not known while projects are added. We can and do check for
+	# uniqueness. We accept multiple occurences of a name, and
+	# treat them as a single project.
+
+	if {[lsearch -exact $myprojpaths $path] >= 0} return
 	lappend myprojpaths $path
 	return
     }
 
     typemethod projects {} {