From: Andreas Kupries <andreas_kupries@users.sourceforge.net>
Date: Wed, 12 Dec 2012 21:41:20 +0000 (+0000)
Subject: 	* library/template/collatevfs.tcl: Added missing provide command.
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=451c0902e0182f87de19f23db817742dbfebf4f2;p=tclvfs

	* 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 604aa27..82bf8b6 100644
--- 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 770f11e..090ae2b 100644
--- 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 f7c48c3..5962360 100644
--- 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 1bae098..114850c 100644
--- 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