[53877] branches/images-and-archives/base/src/port1.0/portimagefile.tcl

[blb at macports.org]

Revision: 53877
          http://trac.macports.org/changeset/53877
Author:   blb at macports.org
Date:     2009-07-15 22:58:05 -0700 (Wed, 15 Jul 2009)
Log Message:
-----------
Make sure to get symlinks to directories as well (otherwise the link matches 'isdirectory')

Modified Paths:
--------------
    branches/images-and-archives/base/src/port1.0/portimagefile.tcl

Modified: branches/images-and-archives/base/src/port1.0/portimagefile.tcl
===================================================================
--- branches/images-and-archives/base/src/port1.0/portimagefile.tcl	2009-07-16 05:54:05 UTC (rev 53876)
+++ branches/images-and-archives/base/src/port1.0/portimagefile.tcl	2009-07-16 05:58:05 UTC (rev 53877)
@@ -121,7 +121,7 @@
     }
     set filelist {}
     fs-traverse element $startpath {
-        if {![file isdirectory $element]} {
+        if {[file type $element] != "directory"} {
             # registry_fileinfo_for_file only works on files which exist
             # so we must run it against the stuff in the destroot, then strip
             # out that path to get to what will be the final install path
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090715/415c6ba0/attachment.html>