Tcl Source Code

Artifact 46048359ba71af15aa529cc6cbafed246cc7d40d:

Attachment "glob.tcl" to ticket [1335006fff] added by melbardis 2005-10-23 00:49:25.

---

memory active d1.txt

set root c:/windows

for {set i 0} {$i < 1000} {incr i} {
     set r [glob -tails -directory [file join $root system] *]
}

set r {}

memory active d2.txt