Changed "Sh" to "Run", and added explicit "Run sh" calls for all shell scripts,
authorJean-Claude Wippler <jcw@equi4.com>
Thu, 5 Apr 2007 00:14:33 +0000 (00:14 +0000)
committerJean-Claude Wippler <jcw@equi4.com>
Thu, 5 Apr 2007 00:14:33 +0000 (00:14 +0000)
such as the configure scripts.  This is needed for MSYS/Mingw.

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

kbs.tcl

diff --git a/kbs.tcl b/kbs.tcl
index 26cd3406a358d239c93613d62b3c414fd662f78f..c6e74dd2627c3b8ae21548765e84d46e0b17c1e9 100644 (file)
--- a/kbs.tcl
+++ b/kbs.tcl
@@ -95,12 +95,12 @@ namespace eval config {
     proc src-cvs {path {module ""}} {
         if {$module eq ""} { set module [file tail $path]}
         if {[string first @ $path] < 0} { set path :pserver:anonymous@$path }
-        Sh cvs -d $path -z3 co -P -d tmp $module
+        Run cvs -d $path -z3 co -P -d tmp $module
         file rename tmp [Srcdir]
     }
     
     proc src-svn {path} {
-        Sh svn co $path [Srcdir]
+        Run svn co $path [Srcdir]
     }
     
     proc src-fetch {path} {
@@ -180,7 +180,7 @@ namespace eval config {
         }
     }
     
-    proc Sh {args} {
+    proc Run {args} {
         lappend args >@stdout 2>@stderr
         eval [linsert $args 0 exec]
     }