Differences From:

File tools/cvs2fossil/lib/c2f_repository.tcl part of check-in [5f7acef887] - Completed pass 5, computing the initial set of changesets. Defined persistent structure and filled out the long-existing placeholder class (project::rev). by aku on 2007-11-10 07:46:20. [view]

To:

File tools/cvs2fossil/lib/c2f_repository.tcl part of check-in [67600f777b] - Fixed handling of project objects when persisting them. Fill the project map. This is needed if the pass is not skipped. For the skip case we already initialize the project map when 'load'ing from the state. by aku on 2007-11-14 05:08:43. [view]

@@ -132,10 +132,14 @@
     }
 
     # pass I persistence
     typemethod persist {} {
+	::variable myprojmap
 	state transaction {
-	    foreach p [TheProjects] { $p persist }
+	    foreach p [TheProjects] {
+		$p persist
+		set myprojmap([$p id]) $p
+	    }
 	}
 	return
     }