From 313e55634f09bbae5e778d7120a4c3d02dd60390 Mon Sep 17 00:00:00 2001
From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Thu, 16 Apr 2009 13:38:18 +0000
Subject: [PATCH] fix vfs package index generation for version 1.4. This is
 needed to fix loading the vfs package into child interpreters.

git-svn-id: svn://svn.equi4.com/kitgen/trunk@4471 9e558909-932a-0410-a563-af77432da1eb
---
 setupvfs.tcl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/setupvfs.tcl b/setupvfs.tcl
index ce10e37..b62c44b 100644
--- a/setupvfs.tcl
+++ b/setupvfs.tcl
@@ -242,8 +242,12 @@ proc mk_tclvfs_index {src} {
   global versmap
   set fin [open $src r]
   set fout [open ${src}.tclkit w]
-  puts $fout [string map $versmap \
-    "package ifneeded vfs [package provide vfs] \[list load {} vfs\]"]
+  set script [string map [list @V [package provide vfs]] {
+      package ifneeded vfs @V "load {} vfs;\
+          source \[file join [list $dir] vfsUtils.tcl\];\
+          source \[file join [list $dir] vfslib.tcl\]"
+  }]
+  puts $fout $script
   while {[gets $fin line] != -1} {
     foreach pkg {starkit vfslib vfs::mk4 vfs::zip vfs::tar mk4vfs} {
       if {[string match "package ifneeded $pkg *" $line]} {
-- 
2.23.0