53/376: build-remote.pl: Fix build log

[Ludovic Court�s]

civodul pushed a commit to tag 1.8
in repository guix.

commit a00a98548e994d1ea258e14793c7bcd8ea56cfdf
Author: Eelco Dolstra <eelco.dols...@logicblox.com>
Date:   Sat Jul 12 00:09:43 2014 +0200

    build-remote.pl: Fix build log
---
 perl/lib/Nix/SSH.pm        |    6 ++++--
 scripts/build-remote.pl.in |    2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/perl/lib/Nix/SSH.pm b/perl/lib/Nix/SSH.pm
index c879204..84bff5c 100644
--- a/perl/lib/Nix/SSH.pm
+++ b/perl/lib/Nix/SSH.pm
@@ -107,11 +107,13 @@ sub writeStrings {
 
 
 sub connectToRemoteNix {
-    my ($sshHost, $sshOpts) = @_;
+    my ($sshHost, $sshOpts, $extraFlags) = @_;
+
+    $extraFlags ||= "";
 
     # Start ‘nix-store --serve’ on the remote host.
     my ($from, $to);
-    my $pid = open2($from, $to, "ssh $sshHost @{$sshOpts} nix-store --serve 
--write");
+    my $pid = open2($from, $to, "ssh $sshHost @{$sshOpts} nix-store --serve 
--write $extraFlags");
 
     # Do the handshake.
     my $SERVE_MAGIC_1 = 0x390c9deb; # FIXME
diff --git a/scripts/build-remote.pl.in b/scripts/build-remote.pl.in
index 687b0e1..c2f1fec 100755
--- a/scripts/build-remote.pl.in
+++ b/scripts/build-remote.pl.in
@@ -197,7 +197,7 @@ REQ: while (1) {
         @sshOpts = ("-i", $machine->{sshKeys}, "-x");
         $hostName = $machine->{hostName};
         eval {
-            ($from, $to) = connectToRemoteNix($hostName, \@sshOpts);
+            ($from, $to) = connectToRemoteNix($hostName, \@sshOpts, "2>&4");
             # FIXME: check if builds are inhibited.
         };
         last REQ unless $@;