Fix determination of Perl interpreter: A perl or perl5

_directory_ in $PATH was also accepted as the interpreter.

diff --git a/CHANGES b/CHANGES
index 799ff10b388f80d517ee28cd603bd7770387beed..28e929cc28fcde0a9d144674f3dc72f001f1266f 100644 (file)
--- 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 4c104dd00956f55bfcfc2a7d065ffb1b61f432e9..627174200a2d1d079998f87a534186582c4fd868 100755 (executable)
--- 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);\''));