Ignore:
Timestamp:
Feb 14, 2007, 10:01:52 AM (11 years ago)
Author:
eridius@…
Message:

And now that I've committed the last fix, I can take the leisure time to realize it's a bit more readable this way

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r22012 r22013  
    520520        while {[llength $stack] > 0} {
    521521            set file [lindex $stack 0]
    522             if {![string equal [file type $file] link] && [file isdirectory $file]} {
     522            if {[string equal [file type $file] directory]} {
    523523                # it's a directory
    524524                set children [glob -nocomplain -directory $file * .*]
Note: See TracChangeset for help on using the changeset viewer.