From 36d1722d75259d0d80f380e5d3b85925509bec5a Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Wed, 3 Dec 2008 03:47:38 +0000 Subject: [PATCH] * pkgIndex.tcl.in, library/tclprocvfs.tcl: vfs::ns bump to 0.5.1 Correct glob of namespaces. [Bug 1280914] --- library/tclprocvfs.tcl | 8 ++++---- pkgIndex.tcl.in | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) 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]] -- 2.23.0