From: sof <unknown>
Date: Tue, 4 Nov 1997 16:57:41 +0000 (+0000)
Subject: [project @ 1997-11-04 16:57:41 by sof]
X-Git-Tag: Approx_2487_patches~1319
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=50da5a7689eb473ac9c432cc5403a47b63282f7a;p=ghc-hetmet.git

[project @ 1997-11-04 16:57:41 by sof]
Catch failures to output dependencies
---

diff --git a/ghc/utils/mkdependHS/mkdependHS.prl b/ghc/utils/mkdependHS/mkdependHS.prl
index 30c6d28..7525b31 100644
--- a/ghc/utils/mkdependHS/mkdependHS.prl
+++ b/ghc/utils/mkdependHS/mkdependHS.prl
@@ -240,11 +240,10 @@ while ($_ && $_ ne $End_magic_str) { # delete 'til End_magic_str
     $_ = <OMKF>;
 }
 # insert dependencies
-print $Begin_magic_str;
-print @Depend_lines;
-print $End_magic_str;
+print $Begin_magic_str, @Depend_lines, $End_magic_str || die "Failed to write out dependencies ($!)";
+
 while (<OMKF>) { # copy the rest through
-    print $_;
+    print $_ || die "Failed to write out dependencies ($!)";
 }
 close(NMKF) || exit(1);
 close(OMKF) || exit(1);