$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|/|\\|;
}
$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\"";