From e49975aef1bc853d6d8588cb003d4bf954f650b5 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 18 Jan 2011 21:48:44 -0600
Subject: internals of perlbrew have changed

---
 bashrc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'bashrc')

diff --git a/bashrc b/bashrc
index fb0e886..27e597a 100644
--- a/bashrc
+++ b/bashrc
@@ -330,7 +330,9 @@ export PS1="\[\$__error_color\]\$__error \[${HIYELLOW}\][\t] \[${HIGREEN}\]\u@\h
 # set the correct perl {{{
 if type -a perlbrew > /dev/null 2>&1; then
     function _setup_perlbrew {
-        local perl="$(readlink ${HOME}/perl5/perlbrew/perls/current)"
+        . ${HOME}/.perlbrew/init
+        local perl=$PERLBREW_PERL
+        [ -z $perl ] && perl="$(readlink ${HOME}/perl5/perlbrew/perls/current)"
         local pwd="${PWD#${HOME}}/"
         if [[ "${pwd:0:6}" == "/work/" ]]; then
             if [[ "$perl" != "work-perl" ]]; then
-- 
cgit v1.2.3-54-g00ecf