diff options
author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2009-03-28 19:29:55 +0000 |
---|---|---|
committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2009-03-28 19:29:55 +0000 |
commit | 3a2bbe7f8ad7ec8b2896ff5e666b8f5525691c6f (patch) | |
tree | 6c0b4a12f499f2cb6d1c0cc0f199cad0239b1566 /scripts/build-remote.pl.in | |
parent | 7fb548aa2621375559f980b4627955dbc6fe9914 (diff) | |
download | guix-3a2bbe7f8ad7ec8b2896ff5e666b8f5525691c6f.tar.gz |
* Simplify communication with the hook a bit (don't use file
descriptors 3/4, just use stdin/stderr).
Diffstat (limited to 'scripts/build-remote.pl.in')
-rwxr-xr-x | scripts/build-remote.pl.in | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/scripts/build-remote.pl.in b/scripts/build-remote.pl.in index 1c4f974406..91b57d5f24 100755 --- a/scripts/build-remote.pl.in +++ b/scripts/build-remote.pl.in @@ -29,9 +29,7 @@ $maxSilentTime = 0 unless defined $maxSilentTime; sub sendReply { my $reply = shift; - open OUT, ">&3" or die; - print OUT "$reply\n"; - close OUT; + print STDERR "# $reply\n"; } sub decline { @@ -121,11 +119,8 @@ if (!defined $machine) { # Yes we did, accept. sendReply "accept"; -open IN, "<&4" or die; -my $x = <IN>; +my $x = <STDIN>; chomp $x; -#print "got $x\n"; -close IN; if ($x ne "okay") { exit 0; |