chiark / gitweb /
Fix up dictionary-manager so server finds yarrglib.tcl
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Tue, 5 Jan 2010 16:29:14 +0000 (16:29 +0000)
committerIan Jackson <Ian.Jackson@eu.citrix.com>
Tue, 5 Jan 2010 16:29:14 +0000 (16:29 +0000)
yarrg/dictionary-manager

index 46a5902..a0eff44 100755 (executable)
@@ -1310,13 +1310,13 @@ proc main/approve {} {
     manyset $argv userhost directory dictdir
     debug "APPROVER FOR $userhost $directory $dictdir"
 
-    set cmd [list tclsh $directory/dictionary-manager]
-    if {$debug} { lappend cmd --debug-server }
-    lappend cmd --remote-server-1 $directory $dictdir
+    set cmd "cd $directory && tclsh ./dictionary-manager"
+    if {$debug} { append cmd " --debug-server" }
+    append cmd " --remote-server-1 $directory $dictdir"
     switch -glob $userhost {
        {} { }
        {* *} { set cmd $userhost }
-       * { set cmd [concat [list ssh -o compression=yes $userhost] $cmd] }
+       * { set cmd [list ssh -o compression=yes $userhost $cmd] }
     }
     debug "APPROVER RUNS $cmd"