diff options
author | Dr. Stephen Henson <steve@openssl.org> | 2011-07-02 15:57:35 +0000 |
---|---|---|
committer | Dr. Stephen Henson <steve@openssl.org> | 2011-07-02 15:57:35 +0000 |
commit | eca7358be3a7935f1ff3432f1aaad842636fc82d (patch) | |
tree | d110323b0a9b299ca7492485971f43ab54edf4b7 /util/fipsas.pl | |
parent | da5e9871e9b01b50f2749760e39a67e9ff6d6482 (diff) |
Additional error checking.
Diffstat (limited to 'util/fipsas.pl')
-rw-r--r-- | util/fipsas.pl | 6 |
1 files changed, 3 insertions, 3 deletions
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>) { |