Changeset 1836 for trunk/base


Ignore:
Timestamp:
Jan 23, 2003, 1:51:12 AM (17 years ago)
Author:
landonf (Landon Fuller)
Message:

Skip links to avoid file size attempting to follow them

File:
1 edited

Legend:

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

    r1829 r1836  
    8888    set size    0;
    8989    foreach file [readdir $dir] {
    90         if {$file == "." || $file == ".."} {
     90        if {$file == "." || $file == ".." || [file type [file join $dir $file]] == "link" } {
    9191            continue
    9292        }
Note: See TracChangeset for help on using the changeset viewer.