Create the 8.x directory if it is not present.
authorPat Thoyts <patthoyts@users.sourceforge.net>
Fri, 30 Mar 2007 21:41:56 +0000 (21:41 +0000)
committerPat Thoyts <patthoyts@users.sourceforge.net>
Fri, 30 Mar 2007 21:41:56 +0000 (21:41 +0000)
git-svn-id: svn://svn.equi4.com/kitgen/trunk@1338 9e558909-932a-0410-a563-af77432da1eb

kbs.tcl

diff --git a/kbs.tcl b/kbs.tcl
index fa9bd4cc6817198fdca7e082a285121b057b365c..291d0b68e2adcc3385467bde8b94dda4e7de0519 100644 (file)
--- a/kbs.tcl
+++ b/kbs.tcl
@@ -120,6 +120,9 @@ namespace eval config {
     }
     
     proc Srcdir {} {
+        if {![file isdirectory [Topdir]/8.x]} {
+            file mkdir [Topdir]/8.x
+        }
         return [Topdir]/8.x/$v::package-$v::version
     }