Do not silently truncate files on perlasm errors

[openssl.git] / crypto / aes / asm / aes-ppc.pl

diff --git a/crypto/aes/asm/aes-ppc.pl b/crypto/aes/asm/aes-ppc.pl
index b235b00b835c03a00b17c329ba94f0cf241dc24d..219bd69d6f9a87eefd75e922ca9be4948a949e06 100644 (file)
--- a/crypto/aes/asm/aes-ppc.pl
+++ b/crypto/aes/asm/aes-ppc.pl
@@ -1460,4 +1460,4 @@ ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
 print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";