shell.scm (rexec): Close a remote pipe after use

* modules/ssh/shell.scm (rexec): Close a remote pipe after use.

1 files changed, 10 insertions, 8 deletions

diff --git a/modules/ssh/shell.scm b/modules/ssh/shell.scm
index f3b9308..1e21135 100644
--- a/modules/ssh/shell.scm
+++ b/modules/ssh/shell.scm
@@ -59,14 +59,16 @@
 (define (rexec session cmd)
   "Execute a command CMD on the remote side.  Return two values: list of
 output lines returned by CMD and its exit code."
-  (let ((channel (open-remote-input-pipe session cmd)))
-    (values (let loop ((line   (read-line channel))
-                       (result '()))
-              (if (eof-or-null? line)
-                  (reverse result)
-                  (loop (read-line channel)
-                        (cons line result))))
-            (channel-get-exit-status channel))))
+  (let* ((channel (open-remote-input-pipe session cmd))
+         (result  (let loop ((line   (read-line channel))
+                             (result '()))
+                    (if (eof-or-null? line)
+                        (reverse result)
+                        (loop (read-line channel)
+                              (cons line result)))))
+         (exit-status (channel-get-exit-status channel)))
+    (close channel)
+    (values result exit-status)))
 
 
 ;;;