run-script 444 B

1234567891011121314151617181920
  1. #!/bin/sh
  2. top_srcdir="`dirname "$0"`"
  3. # To avoid using «readlink -f» or «realpath» we just change into the
  4. # desired directory and work from there.
  5. cd "$top_srcdir"
  6. cwd="`pwd`"
  7. cd "$OLDPWD"
  8. # Set up the environment, to use local perl modules and data files.
  9. export PERL="${PERL:-perl}"
  10. export PERL5LIB="$cwd/scripts:$cwd/dselect/methods"
  11. export DPKG_DATADIR="$cwd/data"
  12. script="$1"
  13. shift 1
  14. exec $PERL $PERL_PROFILE "$cwd/$script" "$@"