Message ID | 20190621142258.1543-3-ian.jackson@eu.citrix.com (mailing list archive) |
---|---|
State | New, archived |
Headers | show |
Series | mg-repro-* improvements | expand |
diff --git a/mg-transient-task b/mg-transient-task index 2b3b315e..ce5180ff 100755 --- a/mg-transient-task +++ b/mg-transient-task @@ -22,7 +22,10 @@ package require Tclx source ./tcl/daemonlib.tcl -jobdb::become-task [string range "$argv" 0 50] +set ownerqueue [jobdb::become-task [string range "$argv" 0 50]] +dup $ownerqueue file114 +close $ownerqueue + exec 2>@ stderr perl -I. -e { use Osstest; use Osstest::Executive; diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl index 4f3409a9..56b61825 100644 --- a/tcl/JobDB-Executive.tcl +++ b/tcl/JobDB-Executive.tcl @@ -435,6 +435,7 @@ proc become-task {comment} { AND refkey = [pg_quote [lindex $refinfo 1]] " } + return $ownerqueue } proc preserve-task {seconds} {
This avoids clashes with other shell scripts' etc. fds. Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com> --- v2: New patch --- mg-transient-task | 5 ++++- tcl/JobDB-Executive.tcl | 1 + 2 files changed, 5 insertions(+), 1 deletion(-)