$perl should never be empty.

diff --git a/Configure b/Configure
index 60fca6ad226c8c02fdc4055bb0528e2ac4fc3e59..2a2dffe3f9bd33c80a9fff5dd8d105d2ec82ae63 100755 (executable)
--- 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',);