blob: f26b8699e94f6e1a6dbf859a1bf83e655a8699d7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/bin/sh
#
# Simple script to find perl and run it
#
# Avoid common problems with ENV (though perl shouldn't let it through)
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 "$@"
|
