Do not silently truncate files on perlasm errors

[openssl.git] / crypto / perlasm / arm-xlate.pl

diff --git a/crypto/perlasm/arm-xlate.pl b/crypto/perlasm/arm-xlate.pl
index af6f7d31885abe16573f16c87a47e18054f8893b..bee0523fefb21c3876ea49c6d9523a8e4998264c 100755 (executable)
--- a/crypto/perlasm/arm-xlate.pl
+++ b/crypto/perlasm/arm-xlate.pl
@@ -191,4 +191,4 @@ while(my $line=<>) {
     print "\n";
 }
 
-close STDOUT;
+close STDOUT or die "error closing STDOUT";