From 9af9bf0ff3d0282b6e2e5b12f0268b5c53fc10f0 Mon Sep 17 00:00:00 2001
From: James Roberts-Thomson <jamesrt@gmail.com>
Date: Tue, 19 Nov 2024 19:11:38 +1300
Subject: [PATCH] Make the perl plugin activate perlbrew as well

---
 plugins/perl/perl.plugin.zsh | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/plugins/perl/perl.plugin.zsh b/plugins/perl/perl.plugin.zsh
index 678e88d97..e16b433e1 100644
--- a/plugins/perl/perl.plugin.zsh
+++ b/plugins/perl/perl.plugin.zsh
@@ -54,3 +54,29 @@ 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 ! typeset -f perlbrew > /dev/null; then
+  # Has PERLBREW_ROOT been set prior, and is it a valid directory?  If so, store
+  # value
+  if [[ -n "${PERLBREW_ROOT}" && -d "{{PERLBREW_ROOT}" ]]; then
+    perlbrew_root="${PERLBREW_ROOT}"
+  fi
+
+  # If perlbrew_root isn't set yet, then set the default path
+  if [[ -z "${perlbrew_root}" ]]; then
+    perlbrew_root="${HOME}/perl5/perlbrew"
+  fi
+
+  # If we can find perlbrew's 'bashrc' (yes, I know!)...
+  if [[ -d "${perlbrew_root}" && -f "${perlbrew_root}/etc/bashrc" ]]; then
+    # and if NO_AUTO_ADD isn't set
+    if [[ -z "${PERLBREW_NO_AUTO_ADD}" ]]; then
+      # Initialize perlbrew
+      source "${perlbrew_root}/etc/bashrc"
+    fi
+  fi
+
+  # Clear our temporary variable
+  unset perlbrew_root
+fi