Browse Source

Remove redundant code, increase readability

master
Sorin Ionescu 13 years ago
parent
commit
5f6e19e26d
  1. 8
      modules/perl/init.zsh

8
modules/perl/init.zsh

@ -9,15 +9,17 @@ if [[ "$OSTYPE" == darwin* ]]; then
# Perl is slow; cache its output. # Perl is slow; cache its output.
cache_file="${0:h}/cache.zsh" cache_file="${0:h}/cache.zsh"
perl_path="$HOME/Library/Perl/5.12" perl_path="$HOME/Library/Perl/5.12"
if [[ -f "$perl_path/lib/perl5/local/lib.pm" ]]; then if [[ -f "$perl_path/lib/perl5/local/lib.pm" ]]; then
manpath=("$perl_path/man" $manpath) manpath=("$perl_path/man" $manpath)
if [[ ! -s "$cache_file" ]]; then if [[ ! -s "$cache_file" ]]; then
perl -I$perl_path/lib/perl5 -Mlocal::lib=$perl_path >! "$cache_file" perl -I$perl_path/lib/perl5 -Mlocal::lib=$perl_path >! "$cache_file"
source "$cache_file"
else
source "$cache_file"
fi fi
source "$cache_file"
fi fi
unset perl_path unset perl_path
unset cache_file unset cache_file

Loading…
Cancel
Save