Test option -nc

[oweals/openssl.git] / util / fipslink.pl

diff --git a/util/fipslink.pl b/util/fipslink.pl
index 3597bc1740ae23d1ad11daaba635f0c824f06006..8b6fbad7d851faef67b1abbf328027c6a0b69e09 100644 (file)
--- a/util/fipslink.pl
+++ b/util/fipslink.pl
@@ -43,7 +43,12 @@ die "First stage Link failure" if $? != 0;
 
 
 print "$fips_premain_dso $fips_target\n";
-$fips_hash=`$fips_premain_dso $fips_target`;
+system("$fips_premain_dso $fips_target >$fips_target.sha1");
+die "Get hash failure" if $? != 0;
+open my $sha1_res, '<', $fips_target.".sha1" or die "Get hash failure";
+$fips_hash=<$sha1_res>;
+close $sha1_res;
+unlink $fips_target.".sha1";
 chomp $fips_hash;
 die "Get hash failure" if $? != 0;