$perl should never be empty.

This commit is contained in:
Ulf Möller 1999-04-29 22:10:24 +00:00
parent 7e05db957f
commit 7185e2d6cd

View File

@ -285,7 +285,7 @@ my $ranlib;
my $perl; my $perl;
$ranlib=&which("ranlib") or $ranlib="true"; $ranlib=&which("ranlib") or $ranlib="true";
$perl=&which("perl5") or $perl=&which("perl"); $perl=&which("perl5") or $perl=&which("perl") or $perl="perl";
&usage if ($#ARGV < 0); &usage if ($#ARGV < 0);
@ -629,10 +629,7 @@ if($IsWindows) {
printf OUT "#define DATE \"%s\"\n", scalar gmtime(); printf OUT "#define DATE \"%s\"\n", scalar gmtime();
close(OUT); close(OUT);
} else { } else {
if ( $perl =~ /./ ) { (system "make -f Makefile.ssl PERL=\'$perl\' links") == 0 or exit $?;
(system "make -f Makefile.ssl PERL=\'$perl\' links") == 0 or exit $?;
} else {
(system 'make -f Makefile.ssl links') == 0 or exit $?;
} }
(system 'make depend') == 0 or exit $? if $depflags ne ""; (system 'make depend') == 0 or exit $? if $depflags ne "";
&dofile("tools/c_rehash",$openssldir,'^DIR=', 'DIR=%s',); &dofile("tools/c_rehash",$openssldir,'^DIR=', 'DIR=%s',);