From: Dr. Stephen Henson <steve@openssl.org>
Date: Wed, 23 May 2012 12:44:48 +0000 (+0000)
Subject: Add --script-sfprefix option to insert a prefix before the request and
X-Git-Tag: OpenSSL-fips-2_0-pl1~22
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=4feb7ef3947ad0514b6642343c4d317b8b9fa374;p=oweals%2Fopenssl.git

Add --script-sfprefix option to insert a prefix before the request and
response filenames in output script.
---

diff --git a/fips/fipsalgtest.pl b/fips/fipsalgtest.pl
index 30cd9c0ebd..d95a8c324c 100644
--- a/fips/fipsalgtest.pl
+++ b/fips/fipsalgtest.pl
@@ -495,6 +495,7 @@ my $onedir = 0;
 my $filter = "";
 my $tvdir;
 my $tprefix;
+my $sfprefix = "";
 my $debug          = 0;
 my $quiet          = 0;
 my $notest         = 0;
@@ -615,6 +616,9 @@ foreach (@ARGV) {
     elsif (/--script-tprefix=(.*)$/) {
         $stprefix = $1;
     }
+    elsif (/--script-fprefix=(.*)$/) {
+        $sfprefix = $1;
+    }
     elsif (/--mkdir=(.*)$/) {
         $mkcmd = $1;
     }
@@ -1044,7 +1048,7 @@ END
                 mkdir($outdir) || die "Can't create directory $outdir";
             }
         }
-        my $cmd = "$tcmd \"$req\" \"$out\"";
+        my $cmd = "$tcmd \"$sfprefix$req\" \"$sfprefix$out\"";
         print STDERR "DEBUG: running test $tname\n" if ( $debug && !$verify );
 	if ($outfile ne "") {
 	    if ($minimal_script) {