Commit 88e9264d authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

automatically make output directory is using minimal script

parent 83db9792

fips/fipsalgtest.pl

+4 −3
Original line number Diff line number Diff line
@@ -1021,6 +1021,10 @@ END 
            $out =~ s|/req/(\S+)\.req|/$rspdir/$1.rsp|;

            my $outdir = $out;

            $outdir =~ s|/[^/]*$||;

            if ( !-d $outdir  && ($outfile eq "" || $minimal_script)) {

                print STDERR "DEBUG: Creating directory $outdir\n" if $debug;

                mkdir($outdir) || die "Can't create directory $outdir";

            }

	    if ($outfile ne "") {

	    	if ($win32) {

		    $outdir =~ tr|/|\\|;
@@ -1043,9 +1047,6 @@ END 
		    }

		$lastdir = $outdir;

		}

            } elsif ( !-d $outdir ) {

                print STDERR "DEBUG: Creating directory $outdir\n" if $debug;

                mkdir($outdir) || die "Can't create directory $outdir";

            }

        }

        my $cmd = "$tcmd \"$sfprefix$req\" \"$sfprefix$out\"";