[64306] trunk/base/src/registry2.0/receipt_sqlite.tcl

[jmr at macports.org]

Revision: 64306
          http://trac.macports.org/changeset/64306
Author:   jmr at macports.org
Date:     2010-03-01 10:51:30 -0800 (Mon, 01 Mar 2010)
Log Message:
-----------
re-fix receipt_sqlite::installed

Modified Paths:
--------------
    trunk/base/src/registry2.0/receipt_sqlite.tcl

Modified: trunk/base/src/registry2.0/receipt_sqlite.tcl
===================================================================
--- trunk/base/src/registry2.0/receipt_sqlite.tcl	2010-03-01 18:09:15 UTC (rev 64305)
+++ trunk/base/src/registry2.0/receipt_sqlite.tcl	2010-03-01 18:51:30 UTC (rev 64306)
@@ -149,13 +149,14 @@
 	        set ports [registry::entry installed]
 	    }
 	} else {
+	    set searchcmd "registry::entry search"
 	    registry::decode_spec $version version revision variants
-	    foreach key {version revision variants} {
-            if {![info exists $key]} {
-                set $key ""
+	    foreach key {name version revision variants} {
+            if {[info exists $key] && [set $key] != ""} {
+                append searchcmd " $key {[set $key]}"
             }
 	    }
-	    if {[catch {set ports [registry::entry search name $name version $version revision $revision variants $variants]}]} {
+	    if {[catch {set ports [eval $searchcmd]}]} {
 	        set ports [list]
 	    }
 	}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100301/8620a072/attachment-0001.html>