* 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.

diff --git a/ChangeLog b/ChangeLog
index a7ab496c27ed7f6b8204b55228760e6073cda91c..7192e3edbfe7e5573f05a7007efaa365e91bf2c7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2009-07-06  Andreas Kupries  <andreask@activestate.com>
+
+       * 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  <patthoyts@users.sourceforge.net>
 
        * library/zipvfs.tcl: Handle directory names that include

diff --git a/library/template/templatevfs.tcl b/library/template/templatevfs.tcl
index 8c99227640ff2500ab1bc1a21985f338df113eb0..ccd04c58c7fb79f377bfe256b5e65c5e5dae14fd 100644 (file)
--- 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 e5c6a78f3ac1e36251d28c9f49e8bbb37829ab15..112844502af3cbb35638dae27823fcf8f0b86cf3 100644 (file)
--- 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