Do not silently truncate files on perlasm errors

[openssl.git] / crypto / rc4 / asm / rc4-c64xplus.pl

diff --git a/crypto/rc4/asm/rc4-c64xplus.pl b/crypto/rc4/asm/rc4-c64xplus.pl
index 0167b05e6a861fde3965fdb2ebaf13b476d0d4d5..2c998d5035f4321a878981a69c1cfc10eb94520c 100644 (file)
--- a/crypto/rc4/asm/rc4-c64xplus.pl
+++ b/crypto/rc4/asm/rc4-c64xplus.pl
@@ -188,4 +188,4 @@ ___
 
 $output = pop and open STDOUT,">$output";
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";