diff options
Diffstat (limited to 'perl/lib/Nix/SSH.pm')
| -rw-r--r-- | perl/lib/Nix/SSH.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl/lib/Nix/SSH.pm b/perl/lib/Nix/SSH.pm index 76a209975..9e0c10beb 100644 --- a/perl/lib/Nix/SSH.pm +++ b/perl/lib/Nix/SSH.pm @@ -6,12 +6,16 @@ use IPC::Open2; our @ISA = qw(Exporter); our @EXPORT = qw( + @globalSshOpts readN readInt readString readStrings writeInt writeString writeStrings connectToRemoteNix ); +our @globalSshOpts = split ' ', ($ENV{"NIX_SSHOPTS"} or ""); + + sub readN { my ($bytes, $from) = @_; my $res = ""; @@ -82,7 +86,7 @@ sub connectToRemoteNix { # Start ‘nix-store --serve’ on the remote host. my ($from, $to); # FIXME: don't start a shell, start ssh directly. - my $pid = open2($from, $to, "exec ssh -x -a $sshHost @{$sshOpts} nix-store --serve --write $extraFlags"); + my $pid = open2($from, $to, "exec ssh -x -a $sshHost @globalSshOpts @{$sshOpts} nix-store --serve --write $extraFlags"); # Do the handshake. my $SERVE_MAGIC_1 = 0x390c9deb; # FIXME |