Changeset 36747

Timestamp:

05/13/08 21:53:20 (7 months ago)

Author:

jmr@…

Message:

uninstall: allow unforced removal of a port with dependents, iff it is
inactive and there is at least one other version of the same port installed.

Files:

• trunk/base/src/registry1.0/portuninstall.tcl (modified) (2 diffs)

trunk/base/src/registry1.0/portuninstall.tcl

@@ -63 +63 @@
                 set revision [lindex [lindex $ilist 0] 2]
                 set variants [lindex [lindex $ilist 0] 3]
+                set active [lindex [lindex $ilist 0] 4]
         }
 
@@ -110 +111 @@
                                 }
                         } else {
-                                ui_msg "$UI_PREFIX [format [msgcat::mc "Unable to uninstall %s %s_%s%s, the following ports depend on it:"] $portname $version $revision $variants]"
-                                foreach depport $dl {
-                                        ui_msg "$UI_PREFIX [format [msgcat::mc "        %s"] $depport]"
-                                }
-                                if { [info exists uninstall.force] && [string equal ${uninstall.force} "yes"] } {
-                                        ui_warn "Uninstall forced.  Proceeding despite dependencies."
-                                } else {
-                                        return -code error "Please uninstall the ports that depend on $portname first."
-                                }
+                # will need to change this when we get version/variant dependencies
+                if {$nb_versions_installed == 1 || $active == 1} {
+                    ui_msg "$UI_PREFIX [format [msgcat::mc "Unable to uninstall %s %s_%s%s, the following ports depend on it:"] $portname $version $revision $variants]"
+                    foreach depport $dl {
+                        ui_msg "$UI_PREFIX [format [msgcat::mc "        %s"] $depport]"
+                    }
+                    if { [info exists uninstall.force] && [string equal ${uninstall.force} "yes"] } {
+                        ui_warn "Uninstall forced.  Proceeding despite dependencies."
+                    } else {
+                        return -code error "Please uninstall the ports that depend on $portname first."
+                    }
+                }
                         }
                 }