From: Ulf Möller <ulf@openssl.org>
Date: Thu, 29 Apr 1999 22:10:24 +0000 (+0000)
Subject: $perl should never be empty.
X-Git-Tag: OpenSSL_0_9_3beta1~188
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=7185e2d6cde3fc90edc55ea2b173e4fa12abc7b1;p=openssl

$perl should never be empty.
---

diff --git a/Configure b/Configure
index 60fca6ad22..2a2dffe3f9 100755
--- a/Configure
+++ b/Configure
@@ -285,7 +285,7 @@ my $ranlib;
 my $perl;
 
 $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);
 
@@ -629,10 +629,7 @@ if($IsWindows) {
 	printf OUT "#define DATE \"%s\"\n", scalar gmtime();
 	close(OUT);
 } else {
-	if ( $perl =~ /./ ) {
-		(system "make -f Makefile.ssl PERL=\'$perl\' links") == 0 or exit $?;
-	} else {
-		(system 'make -f Makefile.ssl links') == 0 or exit $?;
+	(system "make -f Makefile.ssl PERL=\'$perl\' links") == 0 or exit $?;
 	}
 	(system 'make depend') == 0 or exit $? if $depflags ne "";
 	&dofile("tools/c_rehash",$openssldir,'^DIR=',	'DIR=%s',);