[68872] trunk/base/src/macports1.0/macports.tcl

[jmr at macports.org]

Revision: 68872
          http://trac.macports.org/changeset/68872
Author:   jmr at macports.org
Date:     2010-06-16 09:08:57 -0700 (Wed, 16 Jun 2010)
Log Message:
-----------
bring back deactivation of replaced ports during upgrade (#25270)

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2010-06-16 15:42:17 UTC (rev 68871)
+++ trunk/base/src/macports1.0/macports.tcl	2010-06-16 16:08:57 UTC (rev 68872)
@@ -3216,6 +3216,26 @@
                 set anyactive no
             }
         }
+        if {$anyactive && $portname != $newname} {
+            # replaced_by in effect, deactivate the old port
+            # we have to force the deactivate in case of dependents
+            set force_cur [info exists options(ports_force)]
+            set options(ports_force) yes
+            if {$is_dryrun eq "yes"} {
+                ui_msg "Skipping deactivate $portname @${version_active}_${revision_active}${variant_active} (dry run)"
+            } elseif {!(${registry.format} == "receipt_sqlite" && [registry::run_target $regref deactivate [array get options]])
+                      && [catch {portimage::deactivate $portname ${version_active}_${revision_active}${variant_active} [array get options]} result]} {
+                global errorInfo
+                ui_debug "$errorInfo"
+                ui_error "Deactivating $portname @${version_active}_${revision_active}${variant_active} failed: $result"
+                catch {mportclose $workername}
+                return 1
+            }
+            if {!$force_cur} {
+                unset options(ports_force)
+            }
+            set anyactive no
+        }
         if {[info exists options(port_uninstall_old)]} {
             # uninstalling now could fail due to dependents when not forced,
             # because the new version is not installed
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100616/01fc48d4/attachment.html>