From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Wed, 3 Dec 2008 03:47:38 +0000 (+0000)
Subject: 	* pkgIndex.tcl.in, library/tclprocvfs.tcl: vfs::ns bump to 0.5.1
X-Git-Tag: vfs-1-4~6
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=36d1722d75259d0d80f380e5d3b85925509bec5a;p=tclvfs

	* 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 6ccf516..8bc0d51 100644
--- 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 317650e..717e015 100644
--- 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]]