Tk Library Source Code

Artifact e12ec0845f4ffd58d38845ada0b246f482948e42:

Attachment "error.tcl" to ticket [3141568fff] added by guardus 2010-12-22 15:09:59.

---

#! tclsh

package require fileutil
namespace import fileutil::find

file mkdir dir1_test

if {[file exists link1_test]} {
    file delete link1_test
}

file link -symbolic link1_test dir1_test

puts "first find results: [find . {string match *}]"

# Create broken link
file delete dir1_test

set findResults2 [find . {string match *}]

puts "second find results: $findResults2"