Skip to content

Commit

Permalink
Fix force activation of conflicting ports
Browse files Browse the repository at this point in the history
  • Loading branch information
@jmroot
jmroot committed Oct 27, 2024
1 parent efff712 commit 1f52c5a
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions src/registry2.0/portimage.tcl
View file
Original file line number Diff line number Diff line change
Expand Up @@ -782,9 +782,11 @@ proc _activate_contents {port {rename_list {}}} {
# registry
if {$owner ne {}} {
# Rename all conflicting files for this owner.
set owner_paths [list]
set owner_actual_paths [list]
foreach {path actual_path} [dict get $conflicts_port_to_paths $owner] {
set owner_deactivate_paths [list]
set owner_activate_paths [list]
set owner_backup_paths [list]
foreach pathpair [dict get $conflicts_port_to_paths $owner] {
lassign $pathpair path actual_path
lappend owner_deactivate_paths $path
if {![catch {::file type $actual_path}]} {
lappend owner_activate_paths $path
Expand Down

0 comments on commit 1f52c5a

Please sign in to comment.