From afef22e9b0e448672db6d59e9964e15e1d8f1244 Mon Sep 17 00:00:00 2001
From: Johannes Löthberg <johannes@kyriasis.com>
Date: Sat, 16 Aug 2014 20:13:38 +0200
Subject: profile-leeloo: use local::lib to set up perl paths

---
 zsh/profile-leeloo | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/zsh/profile-leeloo b/zsh/profile-leeloo
index a7ae8aa..9e205d2 100644
--- a/zsh/profile-leeloo
+++ b/zsh/profile-leeloo
@@ -1,27 +1,23 @@
 export LD_PRELOAD="$HOME"/.local/lib/libwcwidth.so
+export XAUTHORITY="$HOME"/.local/share/xorg/authority
 
 source "$HOME"/misc/grawity/code/kerberos/kc.sh
 
-export PERL5LIB="$HOME"/misc/grawity/code/lib/perl5
-
-export XAUTHORITY="$HOME"/.local/share/xorg/authority
+export PERL5LIB="$HOME"/misc/grawity/code/lib/perl5"${PERL5LIB+:}$PERL5LIB";
+source <(perl -Mlocal::lib="$HOME"/.local)
 
 function {
 	local envfile="$XDG_RUNTIME_DIR"/gpg-agent.env
-
 	if [[ -e "$envfile" ]] && kill -0 $(cut -d':' -f2 <"$envfile") &>/dev/null; then
 		source "$envfile"
 	else
 		source <(gpg-agent --daemon --write-env-file "$envfile")
 	fi
-
 	export GPG_AGENT_INFO
 }
-
 function {
 	local envfile="$XDG_RUNTIME_DIR"/ssh-agent.env
 	local pid=$(awk -F'[=;]' 'FNR == 2 {print $2}' "$envfile" 2>/dev/null)
-
 	if [[ -n "$pid" ]] && kill -0 "$pid" &>/dev/null; then
 		source "$envfile" >/dev/null
 	else
-- 
cgit v1.2.3-70-g09d2