File: fake-config

package info (click to toggle)
perl 5.24.1-3+deb9u5
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 103,716 kB
  • sloc: perl: 559,611; ansic: 293,886; sh: 67,316; pascal: 7,632; cpp: 3,895; makefile: 2,436; xml: 2,410; yacc: 989; sed: 6; lisp: 1
file content (18 lines) | stat: -rwxr-xr-x 309 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/bin/sh
# copy Config.pm from the first argument to a temporary directory
# then run the rest with that prepended to @INC

# better ideas welcome...

set -e

T=$(mktemp -d)
d="$1"
shift
cp "$d/Config.pm" "$d/Config_heavy.pl" "$T"
p="$1"
shift
status=0
"$p" "-I$T" "$@" || status=$?
rm -rf "$T"
exit $status