From 451c0902e0182f87de19f23db817742dbfebf4f2 Mon Sep 17 00:00:00 2001 From: Andreas Kupries Date: Wed, 12 Dec 2012 21:41:20 +0000 Subject: [PATCH] * 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 --- ChangeLog | 5 +++++ library/template/collatevfs.tcl | 1 + library/template/templatevfs.tcl | 15 ++++++++------- pkgIndex.tcl.in | 2 +- 4 files changed, 15 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 604aa27..82bf8b6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2012-12-12 Andreas Kupries + * 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 -- 2.23.0