From a00a98548e994d1ea258e14793c7bcd8ea56cfdf Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Sat, 12 Jul 2014 00:09:43 +0200 Subject: [PATCH] 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 c8792043c..84bff5c78 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 687b0e131..c2f1fecd8 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 $@;