Tcl Source Code: Artifact [3d5ef7ffaf]

Artifact 3d5ef7ffaff8c2c375522203de37e7d21fb7914b:

Attachment "GlobBug.tcl" to ticket [475941ffff] added by petasis 2001-10-29 16:22:39.

set CWD [pwd]

proc TestGlob {dir} {
  puts "Executing \"glob -nocomplain -types {f l r} $dir/*\"..."
  puts [glob -nocomplain -types {f l r} $dir/*]
  puts "Executing \"glob -nocomplain -types {f l r} -directory $dir *\"..."
  puts [glob -nocomplain -types {f l r} -directory $dir *]
  puts {}
}

TestGlob $CWD
cd ..
puts "**** Changing Directory to \"[pwd]\"..."
TestGlob $CWD