Allow perlbrew environment to be loaded via zstyle

modules/completion/init.zsh

@@ -99,13 +99,14 @@ zstyle -e ':completion:*:hosts' hosts 'reply=(
 )'
 
 # Don't complete uninteresting users...
-zstyle ':completion:*:*:*:users' ignored-patterns nobody nobody4 noaccess '_*' \
+zstyle ':completion:*:*:*:users' ignored-patterns \
-  $([[ "$OSTYPE" = SunOS ]] && uid_min=100 || uid_min=500
+  adm amanda apache avahi beaglidx bin cacti canna clamav daemon \
-    IFS=:
+  dbus distcache dovecot fax ftp games gdm gkrellmd gopher \
-    while read -r user pass uid remainder; do
+  hacluster haldaemon halt hsqldb ident junkbust ldap lp mail \
-      [[ "$user" != (\#*|root) ]] && ((uid < uid_min)) && echo $user
+  mailman mailnull mldonkey mysql nagios \
-    done </etc/passwd
+  named netdump news nfsnobody nobody nscd ntp nut nx openvpn \
-  )
+  operator pcap postfix postgres privoxy pulse pvm quagga radvd \
+  rpc rpcuser rpm shutdown squid sshd sync uucp vcsa xfs '_*'
 
 # ... unless we really want to.
 zstyle '*' single-ignored show

modules/perl/README.md

@@ -30,6 +30,10 @@ Perlbrew
 An alternative to the above is to use [Perlbrew][2], which allows for the
 management of multiple, isolated Perl installations in the home directory.
 
+You can specify the perlbrew location so the environment is automatically loaded.
+
+    zstyle ':prezto:module:perl:perlbrew' location '/path/to/perlbrew'
+
 Aliases
 -------
 

modules/perl/init.zsh

@@ -29,6 +29,13 @@ if [[ "$OSTYPE" == darwin* ]]; then
 
   unset perl_path
   unset cache_file
+
+  # Perlbrew
+  zstyle -s ':prezto:module:perl:perlbrew' location '_perlbrew_root' 
+  if [[ -s "${_perlbrew_root}/etc/bashrc" ]]; then
+    export PERLBREW_ROOT="${_perlbrew_root}"
+    source "${_perlbrew_root}/etc/bashrc"
+  fi
 fi
 
 #