&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
close SELF;
print $code;
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT"; # force flush
+close STDOUT or die "error closing STDOUT: $!"; # force flush
$code =~ s/fmovs.*$//gm;
print $code;
-close STDOUT or die "error closing STDOUT"; # ensure flush
+close STDOUT or die "error closing STDOUT: $!"; # ensure flush
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\b(aes.*%xmm[0-9]+).*$/aesni($1)/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
$code =~ s/\b(sha256[^\s]*)\s+(.*)/sha256op38($1,$2)/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&emit_assembler();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
}
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
} }
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&cbc("BF_cbc_encrypt","BF_encrypt","BF_decrypt",1,4,5,3,-1,-1);
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
sub BF_encrypt
{
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
sub bn_mul_add_words
{
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
sub mul_add_c
{
open STDOUT,">$output" if $output;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
.end bn_sqr_comba4
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
EOF
$data =~ s/\`([^\`]*)\`/eval $1/gem;
print $data;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
}}}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
s/_dswap\s+(%r[0-9]+)/sprintf("rllg\t%s,%s,32",$1,$1) if($SIZE_T==4)/e;
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&emit_assembler();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $code;
# flush
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
}
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&emit_assembler();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
sub CAST_encrypt {
local($name,$enc)=@_;
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # flush
+close STDOUT or die "error closing STDOUT: $!"; # flush
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&fcrypt_body("fcrypt_body");
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
sub fcrypt_body
{
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
sub DES_encrypt_internal()
{
&emit_assembler();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&md5_block("md5_block_asm_data_order");
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
sub Np
{
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
}
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asciz("GHASH for x86, CRYPTOGAMS by <appro\@openssl.org>");
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
# A question was risen about choice of vanilla MMX. Or rather why wasn't
# SSE2 chosen instead? In addition to the fact that MMX runs on legacy
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
}
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print "\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print "\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print "\n$current_segment\tENDS\n" if ($current_segment && $masm);
print "END\n" if ($masm);
-close STDOUT;
+close STDOUT or die "error closing STDOUT: $!;"
\f#################################################
# Cross-reference x86_64 ABI "card"
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$output and open STDOUT,">$output";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$output = pop and open STDOUT,">$output";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
print $code;
-close STDOUT or die "error closing STDOUT"; # force flush
+close STDOUT or die "error closing STDOUT: $!"; # force flush
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&cbc("RC5_32_cbc_encrypt","RC5_32_encrypt","RC5_32_decrypt",0,4,5,3,-1,-1);
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
sub RC5_32_encrypt
{
&ripemd160_block("ripemd160_block_asm_data_order");
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
sub Xv
{
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT"; # force flush
+close STDOUT or die "error closing STDOUT: $!"; # force flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/(srlg\s+)(%r[0-9]+),/$1$2,$2,/gm;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_, "\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,$/;
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
.asciiz "SHA1 for MIPS, CRYPTOGAMS by <appro\@openssl.org>"
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&unalignaddr($1,$2,$3,$4)
/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
print $code;
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
close SELF;
print $code;
-close STDOUT or die "error closing STDOUT"; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
___
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/(srlg\s+)(%r[0-9]+),/$1$2,$2,/gm;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
print $_,"\n";
}
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
&function_end_B("whirlpool_block_mmx");
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
gen_random("rdrand");
gen_random("rdseed");
-close STDOUT or die "error closing STDOUT"; # flush
+close STDOUT or die "error closing STDOUT: $!"; # flush
&asm_finish();
-close STDOUT or die "error closing STDOUT";
+close STDOUT or die "error closing STDOUT: $!";
projects / oweals / openssl.git / commitdiff