Changeset 79864

Timestamp:

06/28/11 12:30:51 (4 years ago)

Author:

jmr@…

Message:

fix moving broken symlinks when force activating (#29952)

File:

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

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

@@ -464 +464 @@
                         # files to a backup file, both in the filesystem and in the
                         # registry
-                        if { [file exists $file] } {
+                        if { ![catch {file type $file}] } {
                             set bakfile "${file}${baksuffix}"
                             ui_warn "File $file already exists.  Moving to: $bakfile."