few missing allocation failure checks and releases on error paths

[openssl.git] / crypto / alphacpuid.pl

diff --git a/crypto/alphacpuid.pl b/crypto/alphacpuid.pl
index 6b51731b45311f3038cac54cc782e6fc87ca3b63..6356b00f94e4a0a4b3a3edd57185db76003048b3 100644 (file)
--- a/crypto/alphacpuid.pl
+++ b/crypto/alphacpuid.pl
@@ -8,7 +8,7 @@
 
 
 $output = pop;
-open STDOUT,">$stdout";
+open STDOUT,">$output";
 
 print <<'___';
 .text