generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Don't use TPREFIX shell variable for minimal script.

Browse Source
This commit is contained in:
Dr. Stephen Henson 2011-10-14 15:15:20 +00:00
parent 3335b6f265
commit 41a846c694
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fips/fipsalgtest.pl
View File

@ -938,6 +938,7 @@ sub run_tests {
my ( $tname, $tref ); my ( $tname, $tref );
my $bad = 0; my $bad = 0;
my $lastdir = ""; my $lastdir = "";
$stprefix = $tprefix unless defined $stprefix;
if ($outfile ne "") { if ($outfile ne "") {
open OUT, ">$outfile" || die "Can't open $outfile"; open OUT, ">$outfile" || die "Can't open $outfile";
} }
@ -953,7 +954,6 @@ echo Running Algorithm Tests
END END
} else { } else {
$stprefix = $tprefix unless defined $stprefix;
print OUT <<END; print OUT <<END;
#!/bin/sh #!/bin/sh
@ -1041,8 +1041,12 @@ END
my $cmd = "$tcmd \"$req\" \"$out\""; my $cmd = "$tcmd \"$req\" \"$out\"";
print STDERR "DEBUG: running test $tname\n" if ( $debug && !$verify ); print STDERR "DEBUG: running test $tname\n" if ( $debug && !$verify );
if ($outfile ne "") { if ($outfile ne "") {
print OUT "echo \" running $tname test\"\n" unless $minimal_script; if ($minimal_script) {
print OUT "\${TPREFIX}$cmd\n"; print OUT "$stprefix$cmd\n";
} else {
print OUT "echo \" running $tname test\"\n" unless $minimal_script;
print OUT "\${TPREFIX}$cmd\n";
}
} else { } else {
$cmd = "$tprefix$cmd"; $cmd = "$tprefix$cmd";
system($cmd); system($cmd);