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

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

View File

@ -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);\''));
}
}
}

8
config
View File

@ -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