[46055] trunk/base/src/port/port.tcl

[jmr at macports.org]

Revision: 46055
          http://trac.macports.org/changeset/46055
Author:   jmr at macports.org
Date:     2009-01-27 18:17:10 -0800 (Tue, 27 Jan 2009)
Log Message:
-----------
upgrade: use a single depscache for all requested ports

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2009-01-28 01:43:58 UTC (rev 46054)
+++ trunk/base/src/port/port.tcl	2009-01-28 02:17:10 UTC (rev 46055)
@@ -1870,15 +1870,19 @@
     if {[require_portlist portlist]} {
         return 1
     }
+    # shared depscache for all ports in the list
+    array set depscache {}
     foreachport $portlist {
         if {[catch {registry::installed $portname}]} {
             ui_error "$portname is not installed"
             return 1
         }
-        # Global variations will have to be merged into the specified
-        # variations, but perhaps after the installed variations are
-        # merged. So we pass them into upgrade:
-        macports::upgrade $portname "port:$portname" [array get global_variations] [array get variations] [array get options]
+        if {![info exists depscache(port:$portname)]} {
+            # Global variations will have to be merged into the specified
+            # variations, but perhaps after the installed variations are
+            # merged. So we pass them into upgrade:
+            macports::upgrade $portname "port:$portname" [array get global_variations] [array get variations] [array get options] depscache
+        }
     }
 
     return 0
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090127/39f8659d/attachment-0001.html>