From 6389567b35b36dfb80d484d35922e158048933e1 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Tue, 5 Jan 2010 16:29:14 +0000 Subject: [PATCH] Fix up dictionary-manager so server finds yarrglib.tcl --- yarrg/dictionary-manager | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/yarrg/dictionary-manager b/yarrg/dictionary-manager index 46a5902..a0eff44 100755 --- a/yarrg/dictionary-manager +++ b/yarrg/dictionary-manager @@ -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" -- 2.30.2