From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 30 Mar 2007 21:41:56 +0000 (+0000)
Subject: Create the 8.x directory if it is not present.
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=e0350fbd7265835d18abe0472fc202cd31e89a2e;p=kitgen

Create the 8.x directory if it is not present.


git-svn-id: svn://svn.equi4.com/kitgen/trunk@1338 9e558909-932a-0410-a563-af77432da1eb
---

diff --git a/kbs.tcl b/kbs.tcl
index fa9bd4c..291d0b6 100644
--- 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
     }