Check-in [0adaabf112]
Not logged in
Overview

SHA1 Hash:0adaabf11231d63b5ded188dc7fe95d987257a88
Date: 2008-01-27 20:40:48
User: aku
Comment:Fixed bug in the code detaching a vendor branch. Left link to removed parent dangling, and killed connection to first on branch. No more.
Timelines: ancestors | descendants | both | trunk
Other Links: files | ZIP archive | manifest

Tags And Properties
Changes
[hide diffs]

Modified tools/cvs2fossil/lib/c2f_file.tcl from [59c3833ae1] to [f9acec5443].

@@ -961,12 +961,12 @@
 	    set vendor [$first parentbranch]
 	    integrity assert {$vendor ne ""} {First NTDB revision has no branch}
 	    if {[$vendor parent] eq $rev11} {
 		$rev11 removebranch        $vendor
 		$rev11 removechildonbranch $first
-		$vendor cutchild
-		$first cutfromparentbranch
+		$vendor cutbranchparent    ;# bp = rev11, about to be gone
+		$first cutfromparentbranch ;# pb = vendor, to be a detached LOD
 		lappend myroots $first
 	    }
 
 	    # Change the type of first (typically from Change to Add):
 	    $first retype add