1inpath()
2{
3	local PROG
4	path=$(echo $PATH | sed 's/^:/.:/
5				s/::/:.:/g
6				s/:$/:./
7				s/:/ /g')
8
9	for x in $path
10	do
11		[ -x $x/$1 ] && { PROG=$x/$1; break; }
12	done
13	[ -n "$PROG" ]
14}
15