mg-transient-task: Put the ownd fd on a high fd, say, 114

This avoids clashes with other shell scripts' etc. fds.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---
v2: New patch

diff --git a/mg-transient-task b/mg-transient-task
index 2b3b315e8ff6c03cb3d8572dd62084c0b85c8457..ce5180ff2ae69b4d61e690b16c0b4cf910b13102 100755 (executable)
--- 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 4f3409a9f94456fb98a805f03345a946841cf414..56b61825680c47438c83880d02f884360cb80835 100644 (file)
--- 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} {