From ee060c68ad70c3ccaa75b856a802052efc4f3c43 Mon Sep 17 00:00:00 2001 From: Steve Huntley Date: Tue, 20 Oct 2009 08:16:36 +0000 Subject: [PATCH] 2008-10-20 Steve Huntley * tclIndex: Corrected version number. * pkgIndex.tcl.in: Edited to replace function of deleted pkgIndex.tcl in template subdir. --- ChangeLog | 6 ++++++ library/template/tclIndex | 2 +- pkgIndex.tcl.in | 15 +++------------ 3 files changed, 10 insertions(+), 13 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7ffceaf..27b545e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2008-10-20 Steve Huntley + + * tclIndex: Corrected version number. + * pkgIndex.tcl.in: Edited to replace function of deleted + pkgIndex.tcl in template subdir. + 2008-10-15 Steve Huntley vfs::template package update ver. 1.5.3: diff --git a/library/template/tclIndex b/library/template/tclIndex index 443c5c7..6cda2aa 100644 --- a/library/template/tclIndex +++ b/library/template/tclIndex @@ -6,7 +6,7 @@ # element name is the name of a command and the value is # a script that loads the command. -set auto_index(::vfs::template::mount) [list package require vfs::template 1.5.2] +set auto_index(::vfs::template::mount) [list package require vfs::template 1.5.3] set auto_index(::vfs::template::collate::mount) [list source [file join $dir collatevfs.tcl]] set auto_index(::vfs::template::quota::mount) [list source [file join $dir quotavfs.tcl]] set auto_index(::vfs::template::version::mount) [list source [file join $dir versionvfs.tcl]] diff --git a/pkgIndex.tcl.in b/pkgIndex.tcl.in index 1128445..8c07661 100644 --- a/pkgIndex.tcl.in +++ b/pkgIndex.tcl.in @@ -32,18 +32,9 @@ package ifneeded vfs::tk 0.5 [list source [file join $dir tkvfs.tcl]] # # Virtual filesystems based on the template vfs: # -package ifneeded vfs::template::chroot 1.5.2 \ - [list source [file join $dir template chrootvfs.tcl]] -package ifneeded vfs::template::collate 1.5.2 \ - [list source [file join $dir template collatevfs.tcl]] -package ifneeded vfs::template::version 1.5.2 \ - [list source [file join $dir template versionvfs.tcl]] -package ifneeded vfs::template::version::delta 1.5.2 \ - [list source [file join $dir template deltavfs.tcl]] -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]] +if {[lsearch -exact $::auto_path [file join $dir template]] == -1} { + lappend ::auto_path [file join $dir template] +} package ifneeded vfs::template 1.5.3 \ [list source [file join $dir template templatevfs.tcl]] # -- 2.23.0