Ticket #8763: no-depmap-dupes.diff

src/registry1.0/receipt_flat.tcl

@@ -732 +732 @@
 
 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
+        }
 }
 
 proc unregister_dep {dep type port} {