[Bug 2482573] improve handling of glob for tclprocvfs

diff --git a/library/tclprocvfs.tcl b/library/tclprocvfs.tcl
index 4287eeb6e93b093a9f727f453c5ab01a339e0251..99845fa35eb4e98446fd232ef4ad444ff6f8180b 100644 (file)
--- a/library/tclprocvfs.tcl
+++ b/library/tclprocvfs.tcl
@@ -115,7 +115,8 @@ proc vfs::ns::matchindirectory {ns path actualpath pattern type} {
 
     set ns ::[string trim $ns :]
     set nspath ${ns}::${path}
-    set slash 1
+    if {![namespace exists $nspath]} {return {}}
+     set slash 1
     if {[::vfs::matchDirectories $type]} {
        # add matching directories to $res
        if {[string length $pattern]} {