From 913236a4f874f1e99405c4dd021f0c3f00c5831c Mon Sep 17 00:00:00 2001
From: "Dr. Stephen Henson" <steve@openssl.org>
Date: Sat, 3 Feb 2007 13:43:53 +0000
Subject: [PATCH] Fix paths for --onedir and Unix.

---
 fips-1.0/mkfipsscr.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fips-1.0/mkfipsscr.pl b/fips-1.0/mkfipsscr.pl
index d803e5855f..601a46184e 100644
--- a/fips-1.0/mkfipsscr.pl
+++ b/fips-1.0/mkfipsscr.pl
@@ -100,7 +100,6 @@ foreach (@ARGV)
 	}
 
 $tvdir = "testvectors" unless defined $tvdir;
-$shwrap_prefix = "../util/" unless defined $shwrap_prefix;
 
 if ($win32)
 	{
@@ -131,10 +130,12 @@ else
 	if ($onedir)
 		{
 		$tprefix = "./" unless defined $tprefix;
+		$shwrap_prefix = "./" unless defined $shwrap_prefix;
 		}
 	else
 		{
 		$tprefix = "../test/" unless defined $tprefix;
+		$shwrap_prefix = "../util/" unless defined $shwrap_prefix;
 		}
 	$outfile = "fipstests.sh" unless defined $outfile;
 	open(OUT, ">$outfile");
@@ -218,7 +219,7 @@ END
 		}
 	else
 		{
-		my $req = "tvdir/$tdir/req/$fprefix.req";
+		my $req = "$tvdir/$tdir/req/$fprefix.req";
 		my $rsp = "$tvdir/$tdir/rsp/$fprefix.rsp";
 		print OUT <<END;
 if [ -f $req ] ; then ${shwrap_prefix}shlib_wrap.sh $tprefix$tcmd < $req > $rsp; fi
-- 
2.25.1