* Don't continue when the call to nix fails.

1 files changed, 11 insertions, 3 deletions

diff --git a/scripts/nix-collect-garbage.in b/scripts/nix-collect-garbage.in
index 16a0b09f59..52f2743675 100755
--- a/scripts/nix-collect-garbage.in
+++ b/scripts/nix-collect-garbage.in
@@ -1,5 +1,8 @@
 #! /usr/bin/perl -w
 
+use strict;
+use IPC::Open2;
+
 my $linkdir = "@localstatedir@/nix/links";
 my $storedir = "@prefix@/store";
 
@@ -16,13 +19,18 @@ foreach my $arg (@ARGV) {
 
 my $extraarg = "";
 if ($keepsuccessors) { $extraarg = "--include-successors"; };
-open HASHES, "nix --query --requisites $extraarg \$(cat $linkdir/*.id) |" or die "in `nix -qrh'";
-while (<HASHES>) {
+my $pid = open2(\*READ, \*WRITE, "nix --query --requisites $extraarg \$(cat $linkdir/*.id)") 
+    or die "determining live paths";
+close WRITE;
+while (<READ>) {
 	chomp;
 	$alive{$_} = 1;
 	if ($invert) { print "$_\n"; };
 }
-close HASHES;
+close READ;
+
+waitpid $pid, 0;
+$? == 0 or die "determining live paths";
 
 exit 0 if ($invert);