From 9d9b559ef03e481d2feec5a3a9a28f4a41f8189a Mon Sep 17 00:00:00 2001
From: "Ralf S. Engelschall" <rse@openssl.org>
Date: Thu, 10 Jun 1999 08:13:52 +0000
Subject: [PATCH] Fix determination of Perl interpreter: A perl or perl5
 _directory_ in $PATH was also accepted as the interpreter.

---
 CHANGES   | 5 ++++-
 Configure | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/CHANGES b/CHANGES
index 799ff10b38..28e929cc28 100644
--- a/CHANGES
+++ b/CHANGES
@@ -2,9 +2,12 @@
  OpenSSL CHANGES
  _______________
 
-
  Changes between 0.9.3a and 0.9.4
 
+  *) Fix determination of Perl interpreter: A perl or perl5
+     _directory_ in $PATH was also accepted as the interpreter.
+     [Ralf S. Engelschall]
+
   *) Fix demos/sign/sign.c: well there wasn't anything strictly speaking
      wrong with it but it was very old and did things like calling
      PEM_ASN1_read() directly and used MD5 for the hash not to mention some
diff --git a/Configure b/Configure
index 4c104dd009..627174200a 100755
--- a/Configure
+++ b/Configure
@@ -753,7 +753,7 @@ sub which
 	my $path;
 	foreach $path (split /:/, $ENV{PATH})
 		{
-		if (-x "$path/$name")
+		if (-f "$path/$name" and -x _)
 			{
 			return "$path/$name" unless ($name eq "perl" and
 			 system("$path/$name -e " . '\'exit($]<5.0);\''));