2008-10-20 Steve Huntley <stephen.huntley@alum.mit.edu>

	* tclIndex: Corrected version number.
	* pkgIndex.tcl.in: Edited to replace function of deleted
	pkgIndex.tcl in template subdir.

diff --git a/ChangeLog b/ChangeLog
index 7ffceaf562603a7db8fbfb2490e8adb3351491bd..27b545ee5a86db57278ef8c23d9d0de436ae83dd 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-10-20  Steve Huntley  <stephen.huntley@alum.mit.edu>
+
+       * tclIndex: Corrected version number.
+       * pkgIndex.tcl.in: Edited to replace function of deleted 
+       pkgIndex.tcl in template subdir.
+
 2008-10-15  Steve Huntley  <stephen.huntley@alum.mit.edu>
 
        vfs::template package update ver. 1.5.3:

diff --git a/library/template/tclIndex b/library/template/tclIndex
index 443c5c7b7828d96a8c86cb4b862dd907304f928b..6cda2aa8ea657bd62da319426a8e6b590b4b63f9 100644 (file)
--- 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 112844502af3cbb35638dae27823fcf8f0b86cf3..8c076618abbd65ad12ba1baf3348dc978ebc35c8 100644 (file)
--- 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]]
 #