File: run-script

package info (click to toggle)
dpkg 1.18.24
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 45,164 kB
  • ctags: 4,933
  • sloc: ansic: 32,683; perl: 22,420; sh: 9,949; cpp: 4,753; makefile: 1,478; sed: 104
file content (19 lines) | stat: -rwxr-xr-x 444 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/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 PERL="${PERL:-perl}"
export PERL5LIB="$cwd/scripts:$cwd/dselect/methods"
export DPKG_DATADIR="$cwd/data"

script="$1"
shift 1

exec $PERL $PERL_PROFILE "$cwd/$script" "$@"