[82812] branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot. tcl

[fotanus at macports.org]

Revision: 82812
          http://trac.macports.org/changeset/82812
Author:   fotanus at macports.org
Date:     2011-08-20 16:49:18 -0700 (Sat, 20 Aug 2011)
Log Message:
-----------
Added debug messages for checkdestroot, on libraries and arches list

Modified Paths:
--------------
    branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot.tcl

Modified: branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot.tcl
===================================================================
--- branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot.tcl	2011-08-20 23:48:00 UTC (rev 82811)
+++ branches/gsoc11-post-destroot/base/src/port1.0/portcheckdestroot.tcl	2011-08-20 23:49:18 UTC (rev 82812)
@@ -211,7 +211,9 @@
 
     #Get package files
     foreach file [files_list $destroot] {
-        foreach file_lib [list_dlibs $file] {
+        set file_libs [list_dlibs $file]
+        ui_debug "File $file has $file_libs libs"
+        foreach file_lib $file_libs {
             set valid_lib 0
             # File itself
             if { [regexp [escape_chars $file_lib] $file] } {
@@ -262,6 +264,7 @@
     if { [expr {$archs ne "noarch"}] } {
         foreach file [files_list $destroot] {
             set file_archs [list_archs $file]
+            ui_debug "File $file has $file_archs archs"
             if { [expr {$file_archs ne {}}] } {
                 foreach arch $file_archs {
                     if { [lsearch $arch $archs] == -1 } {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110820/f60544ab/attachment.html>