From eca7358be3a7935f1ff3432f1aaad842636fc82d Mon Sep 17 00:00:00 2001
From: "Dr. Stephen Henson" <steve@openssl.org>
Date: Sat, 2 Jul 2011 15:57:35 +0000
Subject: [PATCH] Additional error checking.

---
 ms/do_fips.bat | 2 ++
 util/fipsas.pl | 6 +++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/ms/do_fips.bat b/ms/do_fips.bat
index a78fc2515d..3b0d2aa7ff 100644
--- a/ms/do_fips.bat
+++ b/ms/do_fips.bat
@@ -56,7 +56,9 @@ perl util\mk1mf.pl dll %ASM% %TARGET% >ms\ntdll.mak
 @if ERRORLEVEL 1 goto error
 
 nmake -f ms\ntdll.mak clean
+@if ERRORLEVEL 1 goto error
 nmake -f ms\ntdll.mak
+@if ERRORLEVEL 1 goto error
 nmake -f ms\ntdll.mak install
 @if ERRORLEVEL 1 goto error
 
diff --git a/util/fipsas.pl b/util/fipsas.pl
index 6e10d7d8d5..fc2a759308 100644
--- a/util/fipsas.pl
+++ b/util/fipsas.pl
@@ -49,11 +49,11 @@ while (<IN>)
 my ($from, $to);
 
 #rename target temporarily
-rename($target, "tmptarg.s") || die "Can't rename $target\n";
+rename($target, "tmptarg.s") || die "Can't rename $target";
 
 #edit target
-open IN,"tmptarg.s";
-open OUT, ">$target";
+open(IN,"tmptarg.s") || die "Can't open temporary file";
+open(OUT, ">$target") || die "Can't open output file $target";
 
 while (<IN>)
 {
-- 
2.34.1