Fix random warning on garbage collector closing connections when cancalling multisession futures - take 3 [#820]

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future
-Version: 1.69.0-9007
+Version: 1.69.0-9008
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Depends:
     R (>= 3.2.0)

R/backend_api-11.ClusterFutureBackend-class.R

@@ -1109,7 +1109,11 @@ requestNode <- local({
       ex <- FutureError(msg, future = future)
       stop(ex)
     }
-  
+
+    ## Re-read workers from backend, because await() may have triggered
+    ## handleInterruptedFuture(), which relaunches broken workers
+    workers <- backend[["workers"]]
+
     ## Find which node is available
     avail <- rep(TRUE, times = length(workers))
     futures <- FutureRegistry(reg, action = "list", earlySignal = FALSE, debug = debug)