[47874] trunk/base/src/port/portindex.tcl

[blb at macports.org]

Revision: 47874
          http://trac.macports.org/changeset/47874
Author:   blb at macports.org
Date:     2009-03-09 01:19:36 -0700 (Mon, 09 Mar 2009)
Log Message:
-----------
port/portindex.tcl - limit which portinfo keys are placed into PortIndex to those which are searchable

Modified Paths:
--------------
    trunk/base/src/port/portindex.tcl

Modified: trunk/base/src/port/portindex.tcl
===================================================================
--- trunk/base/src/port/portindex.tcl	2009-03-09 08:08:02 UTC (rev 47873)
+++ trunk/base/src/port/portindex.tcl	2009-03-09 08:19:36 UTC (rev 47874)
@@ -67,7 +67,13 @@
                 exit 1
             }
         }
-        
+
+        set keepkeys {categories depends_build depends_lib depends_run description epoch homepage long_description maintainers name platforms revision variants version portdir}
+        foreach availkey [array names portinfo] {
+            if {[lsearch -exact ${keepkeys} $availkey] == -1} {
+                unset portinfo($availkey)
+            }
+        }
         set output [array get portinfo]
         set len [expr [string length $output] + 1]
         puts $fd [list $portinfo(name) $len]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090309/3ace0743/attachment.html>