Changeset 81562

Timestamp:

08/01/11 20:46:51 (4 years ago)

Author:

jmr@…

Message:

avoid erroring due to name-conflicting files from archives when on case-insensitive FS (#30373)

File:

• trunk/base/src/registry2.0/portimage.tcl (modified) (1 diff)

trunk/base/src/registry2.0/portimage.tcl

@@ -250 +250 @@
 ## @return 1 if file needs to be explicitly deleted if we have to roll back, 0 otherwise
 proc _activate_file {srcfile dstfile} {
-    switch [file type $srcfile] {
+    if {[catch {set filetype [file type $srcfile]} result]} {
+        # this can happen if the archive was built on case-sensitive and we're case-insensitive
+        # we know any existing dstfile is ours because we checked for conflicts earlier
+        if {![catch {file type $dstfile}]} {
+            ui_debug "skipping case-conflicting file: $srcfile"
+            return 0
+        } else {
+            error $result
+        }
+    }
+    switch $filetype {
         directory {
             # Don't recursively copy directories