34 lines
841 B
Text
34 lines
841 B
Text
|
#!/bin/bash
|
||
|
|
#
|
||
|
|
# This is based on an idea stolen from Oliver; see his great blog post
|
||
|
|
# http://blogs.perl.org/users/oliver_gorwits/2011/07/locallibs-for-dist-development.html
|
||
|
|
# for the rationale.
|
||
|
|
#
|
||
|
|
# This script works hand-in-hand with new-profile.
|
||
|
|
#
|
||
|
|
|
||
|
|
if [ -z "$1" ]
|
||
|
|
then
|
||
|
|
echo 'Pass the profile name, please'
|
||
|
|
echo 'Valid profiles:'
|
||
|
|
for DIRENT in ${HOME}/perl-profiles/*; do
|
||
|
|
if test -d "${DIRENT}"; then
|
||
|
|
PROFILE=${DIRENT##*/}
|
||
|
|
echo " ${PROFILE}"
|
||
|
|
fi
|
||
|
|
done
|
||
|
|
exit
|
||
|
|
fi
|
||
|
|
|
||
|
|
PROFILE="$1"
|
||
|
|
|
||
|
|
if ! test -d "${HOME}/perl-profiles/${PROFILE}"; then
|
||
|
|
echo "No such profile ${PROFILE}" >&2
|
||
|
|
exit 2
|
||
|
|
fi
|
||
|
|
|
||
|
|
export PROFILE
|
||
|
|
exec env PATH=${HOME}/bin:/bin:/usr/bin PERL5LIB= \
|
||
|
|
"${HOME}/perl-profiles/${PROFILE}/bin/localenv" \
|
||
|
|
/bin/bash --rcfile "${HOME}/perl-profiles/${PROFILE}/etc/bashrc"
|