From a5a47e4afbdc1cc1ec8c98f63cbc49705b8a6f4f Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ulf=20M=C3=B6ller?= <ulf@openssl.org>
Date: Fri, 9 Apr 1999 16:25:25 +0000
Subject: [PATCH] Use Perl 5 even if Perl 4 comes first in the search path.

---
 Configure | 3 ++-
 config    | 8 +++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Configure b/Configure
index 5e78dd11a7..c5867401e3 100755
--- a/Configure
+++ b/Configure
@@ -731,7 +731,8 @@ sub which
 		{
 		if (-x "$path/$name")
 			{
-			return "$path/$name";
+			return "$path/$name" unless ($name eq "perl" and
+			 system("$path/$name -e " . '\'exit($]<5.0);\''));
 			}
 		}
 	}
diff --git a/config b/config
index 2427c4a1aa..2bc53c2424 100755
--- a/config
+++ b/config
@@ -344,13 +344,15 @@ fi
 if [ ".$PERL" = . ] ; then
 	for i in . `echo $PATH | sed 's/:/ /g'`; do
 		if [ -f "$i/perl" ] ; then
-			PERL="$i/perl"
-			break;
+			if "$i/perl" -e 'exit($]<5.0)'; then
+				PERL="$i/perl"
+				break;
+			fi;
 		fi;
 	done
 fi
 
-if $PERL -e 'exit($]>=5.0);' ; then
+if [ ".$PERL" = . ] ; then
 	echo "You need Perl 5."
 	exit 1
 fi
-- 
2.25.1