Commit a5a47e4a authored by Ulf Möller's avatar Ulf Möller
Browse files

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

parent a8da8918

Configure

+2 −1
Original line number Diff line number Diff line
@@ -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);\''));

			}

		}

	}

config

+5 −3
Original line number Diff line number Diff line
@@ -344,13 +344,15 @@ fi 
if [ ".$PERL" = . ] ; then

	for i in . `echo $PATH | sed 's/:/ /g'`; do

		if [ -f "$i/perl" ] ; then

			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