[65862] contrib/port_cutleaves/port_cutleaves

[jmr at macports.org]

Revision: 65862
          http://trac.macports.org/changeset/65862
Author:   jmr at macports.org
Date:     2010-04-02 00:38:49 -0700 (Fri, 02 Apr 2010)
Log Message:
-----------
port_cutleaves: exclude ports with the requested flag set

Modified Paths:
--------------
    contrib/port_cutleaves/port_cutleaves

Modified: contrib/port_cutleaves/port_cutleaves
===================================================================
--- contrib/port_cutleaves/port_cutleaves	2010-04-02 07:37:26 UTC (rev 65861)
+++ contrib/port_cutleaves/port_cutleaves	2010-04-02 07:38:49 UTC (rev 65862)
@@ -195,7 +195,9 @@
 
     set leaves {}
     foreach port $installed {
-        if {[llength [registry::list_dependents [name $port] [version $port] [revision $port] [variants $port]]] < 1
+        set regref [registry::open_entry [name $port] [version $port] [revision $port] [variants $port] [epoch $port]]
+        if {![registry::property_retrieve $regref requested]
+            && [llength [registry::list_dependents [name $port] [version $port] [revision $port] [variants $port]]] < 1
             && ![should_be_excluded $port $exclusions]
             && (!$option(b) || ![info exists build_deps([name $port])])} {
             lappend leaves $port
@@ -216,6 +218,10 @@
     return 0
 }
 
+proc epoch {port} {
+    return [lindex $port 5]
+}
+
 proc name {port} {
     return [lindex $port 0]
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100402/1a77b4ea/attachment.html>