Changeset 36745

Timestamp:

05/13/08 20:22:56 (7 months ago)

Author:

jmr@…

Message:

Prevent duplicate dep_map entries from being inserted. Fix for #8763.

Files:

• trunk/base/src/registry1.0/receipt_flat.tcl (modified) (1 diff)

trunk/base/src/registry1.0/receipt_flat.tcl

@@ -733 +733 @@
 proc register_dep {dep type port} {
         variable dep_map
-        lappend dep_map [list $dep $type $port]
+        set newdep [list $dep $type $port]
+        # slow, but avoids duplicate entries building up
+        if {[lsearch -exact $dep_map $newdep] == -1} {
+            lappend dep_map $newdep
+        }
 }