* library/template/collatevfs.tcl: Added missing provide command.

	* library/template/templatevfs.tcl: Fixed missing default status 0 in
	* pkgIndex.tcl.in: overriden exit command. Bumped to 1.5.5

diff --git a/ChangeLog b/ChangeLog
index 604aa277bbdba0c238e8be8ca7c103182e319663..82bf8b6f0efed82faff76d6a20e8c4c732ef5e96 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2012-12-12  Andreas Kupries <andreask@activestate.com>
 
+       * library/template/collatevfs.tcl: Added missing provide command.
+
+       * library/template/templatevfs.tcl: Fixed missing default status 0 in
+       * pkgIndex.tcl.in: overriden exit command. Bumped to 1.5.5
+       
        * pkgIndex.tcl.in: Added the various template filesystems to the
          index.
 

diff --git a/library/template/collatevfs.tcl b/library/template/collatevfs.tcl
index 770f11e5c2d21322ce1e741eb7721f6770ddfdb9..090ae2bd5d9ab17dbfe2e3431b9c9d2bc867772d 100644 (file)
--- a/library/template/collatevfs.tcl
+++ b/library/template/collatevfs.tcl
@@ -78,6 +78,7 @@ mount -read C:/install/package/images FTP:/pub/releases/package/images -collect
 }
 
 package require vfs::template 1.5
+package provide vfs::template::collate 1.5.3
 
 namespace eval ::vfs::template::collate {
 

diff --git a/library/template/templatevfs.tcl b/library/template/templatevfs.tcl
index f7c48c3259b787ef7008076f5ac01dd03bd6c692..5962360735a6498ab3367fb4a34d90fa1908c3e7 100644 (file)
--- a/library/template/templatevfs.tcl
+++ b/library/template/templatevfs.tcl
@@ -54,7 +54,7 @@ set vfs::posix(load) x
 vfs::posixError load
 unset vfs::posix(load)
 
-package provide vfs::template 1.5.4
+package provide vfs::template 1.5.5
 
 namespace eval ::vfs::template {
 
@@ -571,11 +571,12 @@ proc memchan {args} {
 catch {rename ::exit ::vfs::template::exit}
 
 proc ::exit {args} {
-       foreach vfs [::vfs::filesystem info] {
-               if [catch {$::vfs::_unmountCmd([file normalize $vfs]) $vfs} result] {
-                       puts "$vfs: $result"
-               }               
-       }
-       ::vfs::template::exit [lindex $args 0]
+    foreach vfs [::vfs::filesystem info] {
+       if [catch {$::vfs::_unmountCmd([file normalize $vfs]) $vfs} result] {
+           puts "$vfs: $result"
+       }               
+    }
+    if {![llength $args]} { lappend args 0}
+    ::vfs::template::exit [lindex $args 0]
 }
 

diff --git a/pkgIndex.tcl.in b/pkgIndex.tcl.in
index 1bae0981a5e701b5c14358b0bb76960a8fa69313..114850ce1515f1d7809bb022ebe677ad37006d70 100644 (file)
--- a/pkgIndex.tcl.in
+++ b/pkgIndex.tcl.in
@@ -40,7 +40,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.4 \
+package ifneeded vfs::template 1.5.5 \
     [list source [file join $dir template templatevfs.tcl]]
 #
 # Helpers