tcl: fixes following merge/reorg

diff --git a/sg-run-job b/sg-run-job
index 632e7cdfda4083da2cc20fa9c66cffc0d760a603..5cc3e22897ddce5a69c7a03cd087b005ccf41a23 100755 (executable)
--- a/sg-run-job
+++ b/sg-run-job
@@ -146,7 +146,7 @@ proc spawn-ts {iffail testid ts args} {
     set xprefix {}
     if {[info exists env(OSSTEST_SIMULATE)]} { set xprefix echo }
 
-    set log [jobdb::step-log-filename $flight $jobinfo(job)]
+    set log [jobdb::step-log-filename $flight $jobinfo(job) $stepno]
     set redirects {< /dev/null}
     if {[string length $log]} {
         lappend redirects 2> $log

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index fdabd53a7217e57da0d74e9212ad063569e1f9c8..6e6b6546e88476918f3088644f0b08ef44e7a299 100644 (file)
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -267,7 +267,7 @@ proc become-task {comment} {
     }
 }
 
-proc step-log-filename {flight job} {
+proc step-log-filename {flight job stepno} {
     global c
     set logdir $c(Logs)/$flight/$job
     file mkdir $c(Logs)/$flight

diff --git a/tcl/JobDB-Standalone.tcl b/tcl/JobDB-Standalone.tcl
index 13d8eca6000bc52acf59d9dce54b485251bef51c..83032958591ca1165b9d9231b1e10af62fa7636c 100644 (file)
--- a/tcl/JobDB-Standalone.tcl
+++ b/tcl/JobDB-Standalone.tcl
@@ -75,7 +75,7 @@ proc step-set-status {flight job stepno st} {
 
 proc become-task {argv} { }
 
-proc step-log-filename {flight job} {
+proc step-log-filename {flight job stepno} {
     return {}
 }