Do not silently truncate files on perlasm errors

[openssl.git] / crypto / bn / asm / parisc-mont.pl

diff --git a/crypto/bn/asm/parisc-mont.pl b/crypto/bn/asm/parisc-mont.pl
index 1420840d62bdd5519de1e3dbc496b33b40016753..757f68af21f74b4147c05acae754190cacb108d6 100644 (file)
--- a/crypto/bn/asm/parisc-mont.pl
+++ b/crypto/bn/asm/parisc-mont.pl
@@ -1005,4 +1005,4 @@ foreach (split("\n",$code)) {
 
        print $_,"\n";
 }
-close STDOUT;
+close STDOUT or die "error closing STDOUT";