From b14110b2ac4632c55052913894282ac0eb6a0c2b Mon Sep 17 00:00:00 2001 From: Andreas Kupries Date: Mon, 6 Jul 2009 17:00:19 +0000 Subject: [PATCH] * library/template/templatevfs.tcl (memchan): Fix result for * pkgIndex.tcl: unix. The bug was reported on the wiki. The fix there was wrong, did improper handling of the $args argument. Fixed here. Version bumped to 1.5.3. --- ChangeLog | 7 +++++++ library/template/templatevfs.tcl | 6 +++--- pkgIndex.tcl.in | 2 +- 3 files changed, 11 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index a7ab496..7192e3e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2009-07-06 Andreas Kupries + + * library/template/templatevfs.tcl (memchan): Fix result for + * pkgIndex.tcl: unix. The bug was reported on the wiki. The fix + there was wrong, did improper handling of the $args argument. + Fixed here. Version bumped to 1.5.3. + 2009-05-14 Pat Thoyts * library/zipvfs.tcl: Handle directory names that include diff --git a/library/template/templatevfs.tcl b/library/template/templatevfs.tcl index 8c99227..ccd04c5 100644 --- a/library/template/templatevfs.tcl +++ b/library/template/templatevfs.tcl @@ -7,7 +7,7 @@ templatevfs.tcl -- Written by Stephen Huntley (stephen.huntley@alum.mit.edu) License: Tcl license -Version 1.5.2 +Version 1.5.3 The template virtual filesystem is designed as a prototype on which to build new virtual filesystems. Only a few simple, abstract procedures have to be overridden to produce a new @@ -54,7 +54,7 @@ set vfs::posix(load) x vfs::posixError load unset vfs::posix(load) -package provide vfs::template 1.5.2 +package provide vfs::template 1.5.3 namespace eval ::vfs::template { @@ -550,7 +550,7 @@ proc memchan {args} { set chan [uplevel 1 ::memchan $args] return $chan } else { - return ::vfs::memchan $args + return [eval [linsert $args 0 ::vfs::memchan]] } } diff --git a/pkgIndex.tcl.in b/pkgIndex.tcl.in index e5c6a78..1128445 100644 --- a/pkgIndex.tcl.in +++ b/pkgIndex.tcl.in @@ -44,7 +44,7 @@ package ifneeded vfs::template::fish 1.5.2 \ [list source [file join $dir template fishvfs.tcl]] package ifneeded vfs::template::quota 1.5.2 \ [list source [file join $dir template quotavfs.tcl]] -package ifneeded vfs::template 1.5.2 \ +package ifneeded vfs::template 1.5.3 \ [list source [file join $dir template templatevfs.tcl]] # # Helpers -- 2.23.0