提交 7185e2d6 编写于 作者: U Ulf Möller

$perl should never be empty.

上级 7e05db95
...@@ -285,7 +285,7 @@ my $ranlib; ...@@ -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) { ...@@ -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',);
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册