31 lines
538 B
Bash
31 lines
538 B
Bash
|
#!/bin/sh
|
||
|
|
# $OpenBSD: th.sh,v 1.4 2001/01/28 23:04:57 niklas Exp $
|
||
|
|
|
||
|
|
|
||
|
|
#
|
||
|
|
# Simple script to find perl and run it
|
||
|
|
#
|
||
|
|
|
||
|
|
# Avoid common problems with ENV (though perl shouldn't let it through)
|
||
|
|
# (can you believe some shells don't have an unset???)
|
||
|
|
unset ENV
|
||
|
|
|
||
|
|
x=x
|
||
|
|
[ -x /bin/sh ] 2> /dev/null || x=f
|
||
|
|
|
||
|
|
IFS=:$IFS
|
||
|
|
perl=
|
||
|
|
for i in $PATH; do
|
||
|
|
[ X"$i" = X ] && i=.
|
||
|
|
for j in perl perl4 perl5 ; do
|
||
|
|
[ -$x "$i/$j" ] && perl=$i/$j && break 2
|
||
|
|
done
|
||
|
|
done
|
||
|
|
|
||
|
|
[ X"$perl" = X ] && {
|
||
|
|
echo "$0: can't find perl - bye\n" 1>&2
|
||
|
|
exit 1
|
||
|
|
}
|
||
|
|
|
||
|
|
exec $perl "$@"
|