---

yaml
---
r: 4133
b: refs/heads/master
c: f110c20
h: refs/heads/master
i:
  4131: c3ffad7
v: v3

Author: brson

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 067cb6d53751b2c93d3e1ea45e7547069f865e6a
+refs/heads/master: f110c206097e9483cbe68be50eca80ac63abcbbd

trunk/src/test/compiletest/compiletest.rs

@@ -525,7 +525,8 @@ mod procsrv {
     export run;
     export close;
 
-    type handle = chan[request];
+    type handle = rec(option::t[task] task,
+                      chan[request] chan);
 
     tag request {
         exec(str, str, vec[str], chan[response]);
@@ -535,22 +536,28 @@ mod procsrv {
     type response = rec(int pid, int outfd);
 
     fn mk() -> handle {
-        task::worker(worker).chan
+        auto res = task::worker(worker);
+        ret rec(task = option::some(res.task),
+                chan = res.chan);
     }
 
     fn clone(&handle handle) -> handle {
-        task::clone_chan(handle)
+        // Sharing tasks across tasks appears to be (yet another) recipe for
+        // disaster, so our handle clones will not get the task pointer.
+        rec(task = option::none,
+            chan = task::clone_chan(handle.chan))
     }
 
     fn close(&handle handle) {
-        task::send(handle, stop);
+        task::send(handle.chan, stop);
+        task::join(option::get(handle.task));
     }
 
     fn run(&handle handle, &str lib_path,
            &str prog, &vec[str] args) -> rec(int status, str out) {
         auto p = port[response]();
         auto ch = chan(p);
-        task::send(handle,
+        task::send(handle.chan,
                    exec(lib_path, prog, args, ch));
 
         auto resp = task::recv(p);