Changeset 79175

Timestamp:

06/04/11 00:07:18 (4 years ago)

Author:

jmr@…

Message:

fix registry::installed

File:

• trunk/base/src/registry2.0/receipt_sqlite.tcl (modified) (1 diff)

trunk/base/src/registry2.0/receipt_sqlite.tcl

@@ -173 +173 @@
             set possible_ports [registry::entry imaged $name]
             foreach p $possible_ports {
-                if {"[$port version]_[$port revision][$port variants]" == $version
-                    || [$port version] == $version} {
+                if {"[$p version]_[$p revision][$p variants]" == $version
+                    || [$p version] == $version} {
                     lappend ports $p
                 }