Diff
Not logged in

Differences From:

File tools/cvs2fossil/lib/c2f_file.tcl part of check-in [0adaabf112] - Fixed bug in the code detaching a vendor branch. Left link to removed parent dangling, and killed connection to first on branch. No more. by aku on 2008-01-27 20:40:48. [view]

To:

File tools/cvs2fossil/lib/c2f_file.tcl part of check-in [7208c7ac4d] - Changes to cvs2fossil to import tcllib CVS into fossil on Win32

* using ::file instead of file in snit methods to get the core file command * taking care of files that only differ in case in the Attic and the repo on case insensitive FS * passing platform specific

by mjanssen on 2008-01-28 23:57:27. [view]

@@ -265,9 +265,9 @@
 
 	array set idmap [$repository importfiles $filemap]
 
 	# Wipe workspace clean of the imported files.
-	foreach x [glob -directory $ws r*] { file delete $x }
+	foreach x [glob -directory $ws r*] { ::file delete $x }
 
 	foreach {path rid} $revmap {
 	    set uuid $idmap($path)
 	    state run {
@@ -338,9 +338,9 @@
 
 	# Phase III: Traverse the graphs, expand the file, and
 	#            generate import instructions.
 
-	set archive [file join [$myproject fullpath] $mypath]
+	set archive [::file join [$myproject fullpath] $mypath]
 	set ac      [open $archive r]
 	fconfigure $ac -translation binary
 
 	# First traverse the expansion graph, this gives us the