From 50da5a7689eb473ac9c432cc5403a47b63282f7a Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 4 Nov 1997 16:57:41 +0000
Subject: [PATCH] [project @ 1997-11-04 16:57:41 by sof] Catch failures to
output dependencies
---
ghc/utils/mkdependHS/mkdependHS.prl | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/ghc/utils/mkdependHS/mkdependHS.prl b/ghc/utils/mkdependHS/mkdependHS.prl
index 30c6d282be67..7525b315d39d 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);
--
GitLab