From a29b64a231468174dcc693979fe40bd482b040b4 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Tue, 1 Aug 2006 13:50:10 +0000
Subject: [PATCH] * Better error checking.

---
 scripts/nix-build.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/nix-build.in b/scripts/nix-build.in
index fab8fae84..1357b7a12 100644
--- a/scripts/nix-build.in
+++ b/scripts/nix-build.in
@@ -110,9 +110,9 @@ foreach my $expr (@exprs) {
 
     # Instantiate.
     my @drvPaths;
-    open DRVPATHS, "-|", "@bindir@/nix-instantiate", "--add-root", $drvLink, "--indirect", @instArgs, $expr;
+    my $pid = open DRVPATHS, "-|", "@bindir@/nix-instantiate", "--add-root", $drvLink, "--indirect", @instArgs, $expr;
     while (<DRVPATHS>) {chomp; push @drvPaths, $_;}
-    close DRVPATHS;
+    close DRVPATHS or die;
 
     foreach my $drvPath (@drvPaths) {
         my $target = readlink $drvPath;