dpkg/run-script

#!/bin/sh

top_srcdir=`dirname $0`

# To avoid using «readlink -f» or «realpath» we just change into the
# desired directory and work from there.
cd "$top_srcdir"
cwd=`pwd`
cd "$OLDPWD"

# Set up the environment, to use local perl modules and data files.
export PERL5LIB=$cwd/scripts:$cwd/dselect/methods
export DPKG_DATADIR=$cwd

interp=$1
script=$2
shift 2

exec $interp "$cwd/$script" "$@"