Do not silently truncate files on perlasm errors

[openssl.git] / crypto / c64xpluscpuid.pl

diff --git a/crypto/c64xpluscpuid.pl b/crypto/c64xpluscpuid.pl
index a807e7f59dd69fb2029d64825563ae0d0b72a0ac..0fc1b8b60a0262dfe9c671c8d4ba0ea00db4edc7 100644 (file)
--- a/crypto/c64xpluscpuid.pl
+++ b/crypto/c64xpluscpuid.pl
@@ -284,4 +284,4 @@ bus_loop2_done?:
 ___
 
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";