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

[jmr at macports.org]

Revision: 65236
          http://trac.macports.org/changeset/65236
Author:   jmr at macports.org
Date:     2010-03-24 07:06:32 -0700 (Wed, 24 Mar 2010)
Log Message:
-----------
direct mode fix

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-03-24 13:05:38 UTC (rev 65235)
+++ trunk/base/src/macports1.0/macports.tcl	2010-03-24 14:06:32 UTC (rev 65236)
@@ -1729,7 +1729,11 @@
 
 # get the archs with which the active version of portname is installed
 proc macports::_get_registry_archs {portname} {
-    set ilist [registry::active $portname]
+    if {[string equal ${macports::registry.installtype} "image"]} {
+        set ilist [registry::active $portname]
+    } else {
+        set ilist [registry::installed $portname]
+    }
     set i [lindex $ilist 0]
     set regref [registry::open_entry [lindex $i 0] [lindex $i 1] [lindex $i 2] [lindex $i 3] [lindex $i 5]]
     set archs [registry::property_retrieve $regref archs]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100324/04bdb6c7/attachment.html>