1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| #! /bin/sh
if [ "$1" = "-l" ]; then
shift; lib=$1; shift
else
lib=""
fi
case $lib in
./*|../*)
lib="$PWD/$lib";;
/*)
lib="$lib";;
'')
lib="";;
*)
lib="$HOME/$lib";;
esac
eval $(perl -Mlocal::lib=$lib)
exec "$@"
|