generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use Perl 5 even if Perl 4 comes first in the search path.

Browse Source
This commit is contained in:
Ulf Möller 1999-04-09 16:25:25 +00:00
parent a8da89186c
commit a5a47e4afb
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Configure
View File

@ -731,7 +731,8 @@ sub which
{ {
if (-x "$path/$name") if (-x "$path/$name")
{ {
return "$path/$name"; return "$path/$name" unless ($name eq "perl" and
system("$path/$name -e " . '\'exit($]<5.0);\''));
} }
} }
} }

4
config
View File

@ -344,13 +344,15 @@ fi
if [ ".$PERL" = . ] ; then if [ ".$PERL" = . ] ; then
for i in . `echo $PATH | sed 's/:/ /g'`; do for i in . `echo $PATH | sed 's/:/ /g'`; do
if [ -f "$i/perl" ] ; then if [ -f "$i/perl" ] ; then
if "$i/perl" -e 'exit($]<5.0)'; then
PERL="$i/perl" PERL="$i/perl"
break; break;
fi; fi;
fi;
done done
fi fi
if $PERL -e 'exit($]>=5.0);' ; then if [ ".$PERL" = . ] ; then
echo "You need Perl 5." echo "You need Perl 5."
exit 1 exit 1
fi fi