kalyptus/findperl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/bin/sh

test -f perlbin && rm perlbin

for p in `echo $PATH | tr ":" " "`
do
	if [ -x $p/perl ]
	then
		if $p/perl -e 'retquire 5.000;' 
		then
			echo $p/perl > perlbin
			exit 0
		fi
	fi
	
done
exit 1