* pkgIndex.tcl.in, library/tclprocvfs.tcl: vfs::ns bump to 0.5.1

	Correct glob of namespaces. [Bug 1280914]

diff --git a/library/tclprocvfs.tcl b/library/tclprocvfs.tcl
index 6ccf516531b35cba361f66354bdf127b894dde38..8bc0d514a2b93b1b94d431693807003ca2eb9b42 100644 (file)
--- a/library/tclprocvfs.tcl
+++ b/library/tclprocvfs.tcl
@@ -1,5 +1,5 @@
 
-package provide vfs::ns 0.5
+package provide vfs::ns 0.5.1
 
 package require vfs 1.0
 
@@ -123,7 +123,7 @@ proc vfs::ns::matchindirectory {ns path actualpath pattern type} {
            }
        }
     }
-    
+
     if {[::vfs::matchFiles $type]} {
        # add matching files to $res
        if {[string length $pattern]} {
@@ -134,11 +134,11 @@ proc vfs::ns::matchindirectory {ns path actualpath pattern type} {
     }
     set realres [list]
     foreach r $res {
-       regsub "^(::)?${ns}(::)?${path}(::)?" $r $actualpath rr
+       regsub "^(::)?${ns}(::)?${path}(::)?" $r $actualpath/ rr
        lappend realres $rr
     }
     #::vfs::log $realres
-    
+
     return $realres
 }
 

diff --git a/pkgIndex.tcl.in b/pkgIndex.tcl.in
index 317650ed163933b263f723d1afbdf0a492f156bd..717e015729bb97b2e7f6f04d0e6ac8c53248b0c9 100644 (file)
--- a/pkgIndex.tcl.in
+++ b/pkgIndex.tcl.in
@@ -40,7 +40,7 @@ package ifneeded vfs::zip     1.0.1  [list source [file join $dir zipvfs.tcl]]
 # New
 package ifneeded vfs::ftp     1.0 [list source [file join $dir ftpvfs.tcl]]
 package ifneeded vfs::http    0.6 [list source [file join $dir httpvfs.tcl]]
-package ifneeded vfs::ns      0.5 [list source [file join $dir tclprocvfs.tcl]]
+package ifneeded vfs::ns      0.5.1 [list source [file join $dir tclprocvfs.tcl]]
 package ifneeded vfs::tar     0.91 [list source [file join $dir tarvfs.tcl]]
 package ifneeded vfs::test    1.0 [list source [file join $dir testvfs.tcl]]
 package ifneeded vfs::urltype 1.0 [list source [file join $dir vfsUrl.tcl]]