Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 104 lines (85 sloc) 2.09 KB
#!/usr/bin/env bash
set -e
export -n CDPATH
if [ "$1" = "--debug" ]; then
export PLENV_DEBUG=1
shift
fi
if [ -n "$PLENV_DEBUG" ]; then
export PS4='+ [${BASH_SOURCE##*/}:${LINENO}] '
set -x
fi
read READLINK < <( type -p greadlink readlink ) || {
echo "plenv: cannot find readlink - are you missing GNU coreutils?" >&2
exit 1
}
export READLINK
abs_dirname() {
local cwd="$PWD"
local path="$1"
while [ -n "$path" ]; do
cd "${path%/*}"
local name="${path##*/}"
path="$($READLINK "$name" || true)"
done
pwd
cd "$cwd"
}
if [ -z "${PLENV_ROOT}" ]; then
PLENV_ROOT="${HOME}/.plenv"
else
PLENV_ROOT="${PLENV_ROOT%/}"
fi
export PLENV_ROOT
if [ -z "${PLENV_DIR}" ]; then
PLENV_DIR="$PWD"
else
cd "$PLENV_DIR" 2>/dev/null || {
echo "plenv: cannot change working directory to \`$PLENV_DIR'"
exit 1
} >&2
PLENV_DIR="$PWD"
cd "$OLDPWD"
fi
export PLENV_DIR
shopt -s nullglob
bin_path="$(abs_dirname "$0")"
for plugin_bin in "${PLENV_ROOT}/plugins/"*/bin; do
bin_path="${bin_path}:${plugin_bin}"
done
export PATH="${bin_path}:${PATH}"
hook_path="${PLENV_HOOK_PATH:+$PLENV_HOOK_PATH:}${PLENV_ROOT}/plenv.d:/usr/local/etc/plenv.d:/etc/plenv.d:/usr/lib/plenv/hooks"
for plugin_hook in "${PLENV_ROOT}/plugins/"*/etc/plenv.d; do
hook_path="${hook_path}:${plugin_hook}"
done
export PLENV_HOOK_PATH="$hook_path"
shopt -u nullglob
command="$1"
case "$command" in
"" | "-h" | "--help" )
echo -e "$(plenv---version)\n$(plenv-help)" >&2
;;
"-v" )
exec plenv---version
;;
* )
command_path="$(command -v "plenv-$command" || true)"
if [ -z "$command_path" ]; then
if [ "$command" = "install" ]; then
echo "plenv: Please install perl-build. See https://github.com/tokuhirom/plenv/blob/master/README.md#installation"
exit 1
else
echo "plenv: no such command \`$command'" >&2
exit 1
fi
fi
shift 1
if [ "$command" = "install" ];then
system_perl=$(PLENV_VERSION=system plenv-which perl 2> /dev/null || true)
if [ "$system_perl" != "" ]; then
exec "$system_perl" "$command_path" "$@"
fi
fi
exec "$command_path" "$@"
;;
esac