Differences From:

File tools/cvs2fossil/lib/c2f_pcollar.tcl part of check-in [edc46651c7] - Moved the new case-sensitive file checking code into the misc package with descriptive command names, to recapture clarity of code at the calling places. by aku on 2008-01-29 04:05:10. [view]

To:

File tools/cvs2fossil/lib/c2f_pcollar.tcl part of check-in [ed13b28b13] - Fixed the names for the case-sensitive file operations. by aku on 2008-01-30 03:10:57. [view]

@@ -116,10 +116,10 @@
 		if {[IsSuperceded $base $rcs $usr $isattic]} continue
 
 		# XXX Checkme: not sure if this will still fail in the case where a directory does conflict with a file XXX
 		if {
-		    [fileexists_ci $base/$usr] &&
-		    [fileisdir_ci  $base/$usr]
+		    [fileexists_cs $base/$usr] &&
+		    [fileisdir_cs  $base/$usr]
 		} {
 		    trouble fatal "Directory name conflicts with filename."
 		    trouble fatal "Please remove or rename one of the following:"
 		    trouble fatal "    $base/$usr"
@@ -221,9 +221,9 @@
     proc IsSuperceded {base rcs usr isattic} {
 	::variable myignore
 
 	if {!$isattic}                     {return 0}
-	if {![fileexists_ci $base/$usr,v]} {return 0}
+	if {![fileexists_cs $base/$usr,v]} {return 0}
 
 	# We have a regular archive and an Attic archive refering to
 	# the same user visible file. Ignore the file in the Attic.
 	#