[78972] branches/gsoc11-rev-upgrade/base/src/port/port.tcl

[cal at macports.org]

Revision: 78972
          http://trac.macports.org/changeset/78972
Author:   cal at macports.org
Date:     2011-05-28 09:21:31 -0700 (Sat, 28 May 2011)
Log Message:
-----------
rev-upgrade: port.tcl: Print a [registry::file search] result.

Modified Paths:
--------------
    branches/gsoc11-rev-upgrade/base/src/port/port.tcl

Modified: branches/gsoc11-rev-upgrade/base/src/port/port.tcl
===================================================================
--- branches/gsoc11-rev-upgrade/base/src/port/port.tcl	2011-05-28 08:52:12 UTC (rev 78971)
+++ branches/gsoc11-rev-upgrade/base/src/port/port.tcl	2011-05-28 16:21:31 UTC (rev 78972)
@@ -2466,6 +2466,11 @@
 }
 
 proc action_revupgrade { action portlist opts } {
+    set files [registry::file search active 1 binary -null]
+    puts "[llength $files] elements in the list"
+    foreach f $files {
+        puts [$f path]
+    }
     return 0
 }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110528/55cfe0d6/attachment.html>