[Tcllib-devel] fileutil::find in tcllib 1.17 does not come back when used on /sys/devices

[Frank S. <Fra...@gm...>]

Hi,

I'm using the fileutil::find command to search for certain USB devices
under /sys/devices. This still worked fine in tcllib 1.16. However, the
functions hangs (endless loop?) in tcllib 1.17.
Here is a small test program:

--- snip ---

package require fileutil


proc IsIdVendorFile {fileName} {

    return [string equal idVendor $fileName]
}


foreach vendorIdFileName [fileutil::find /sys/devices IsIdVendorFile] {
    puts $vendorIdFileName
}

--- snip ---

I did not check the find command for other trees. As the function is
also a bit more complex, I also did not start any debugging ;-)


Best regards,
Frank