From 9a0e22c184f4348b4bda4cd3de306d65eb541341 Mon Sep 17 00:00:00 2001
From: jamesrtnz <jamesrt@gmail.com>
Date: Fri, 24 Jan 2025 08:24:43 +1300
Subject: feat(perl): add `perlbrew` auto activation (#12814)

Co-authored-by: Carlo Sala <carlosalag@protonmail.com>
---
 plugins/perl/perl.plugin.zsh | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'plugins/perl/perl.plugin.zsh')

diff --git a/plugins/perl/perl.plugin.zsh b/plugins/perl/perl.plugin.zsh
index 678e88d97..137fa252a 100644
--- a/plugins/perl/perl.plugin.zsh
+++ b/plugins/perl/perl.plugin.zsh
@@ -54,3 +54,12 @@ pgs() { # [find] [replace] [filename]
 prep() { # [pattern] [filename unless STDOUT]
     perl -nle 'print if /'"$1"'/;' $2
 }
+
+# If the 'perlbrew' function isn't defined, perlbrew isn't setup.
+if [[ $ZSH_PERLBREW_ACTIVATE != false ]] && (( ! $+functions[perlbrew] )); then
+  local _perlbrew="${PERLBREW_ROOT:-${HOME}/perl5/perlbrew}"
+  if [[ -f "${_perlbrew}/etc/bashrc" ]]; then
+    source "${_perlbrew}/etc/bashrc"
+  fi
+  unset _perlbrew
+fi
-- 
cgit v1.2.3-70-g09d2