From fc9b15898370c68de876d858f126b0da4604d9d0 Mon Sep 17 00:00:00 2001
From: "Fred T. Hamster" <fred@gruntose.com>
Date: Thu, 9 Nov 2023 16:58:16 -0500
Subject: [PATCH] fix for perl environment variable usage in snarf notes

---
 scripts/archival/snarf_notes.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/archival/snarf_notes.pl b/scripts/archival/snarf_notes.pl
index 24020b79..23ecf86c 100644
--- a/scripts/archival/snarf_notes.pl
+++ b/scripts/archival/snarf_notes.pl
@@ -28,7 +28,7 @@ use Env qw(HOME);
 local($number) = &retrieve_number("aa_backup");
 
 # variables for directory location to backup and the file to dump it in.
-local($root) = "$FEISTY_MEOW_PERSONAL_HOME";
+local($root) = $ENV{FEISTY_MEOW_PERSONAL_HOME};
 local($snarf_file_base) = &snarf_prefix("notes");
 local($snarf_file) = &snarf_name($snarf_file_base, $number);
 
-- 
2.34.1