2003-03-22 18:35:03 +01:00
|
|
|
#!/bin/sh
|
2004-05-24 21:56:25 +02:00
|
|
|
# $MirBSD: th.sh,v 1.2 2004/05/24 19:56:25 tg Stab $
|
|
|
|
|
# $OpenBSD: th.sh,v 1.4 2001/01/28 23:04:57 niklas Exp $
|
2003-03-22 18:35:03 +01:00
|
|
|
#
|
|
|
|
|
# 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 "$@"
|
