switch to work perl when i'm in ~/work

1 files changed, 16 insertions, 0 deletions

diff --git a/bashrc b/bashrc
index 9569e93..51dc3d8 100644
--- a/bashrc
+++ b/bashrc
@@ -314,6 +314,22 @@ function _set_vcs {
 export PROMPT_COMMAND="_set_error;_set_vcs;$PROMPT_COMMAND"
 export PS1="\[\$__error_color\]\$__error \[${HIYELLOW}\][\t] \[${HIGREEN}\]\u@\h \[${HIBLUE}\]\W\[${CYAN}\]\$__vcs \[${HIBLUE}\]\\$\[${NORM}\] "
 # }}}
+# set the correct perl {{{
+function _setup_perlbrew {
+    local perl="$(readlink ${HOME}/perl5/perlbrew/perls/current)"
+    local pwd="${PWD#${HOME}}/"
+    if [[ "${pwd:0:6}" == "/work/" ]]; then
+        if [[ "$perl" != "work-perl" ]]; then
+            perlbrew switch work-perl
+        fi
+    else
+        if [[ "$perl" == "work-perl" ]]; then
+            perlbrew switch perl-5.10.1
+        fi
+    fi
+}
+export PROMPT_COMMAND="${PROMPT_COMMAND};_setup_perlbrew"
+# }}}
 # }}}
 # external files {{{
 [ -f /etc/bash_completion ] && source /etc/bash_completion