From: Fred T. Hamster <fred@gruntose.com>
Date: Thu, 9 Nov 2023 21:58:16 +0000 (-0500)
Subject: fix for perl environment variable usage in snarf notes
X-Git-Tag: 2.140.188^2~39
X-Git-Url: https://feistymeow.org/gitweb/?a=commitdiff_plain;h=fc9b15898370c68de876d858f126b0da4604d9d0;p=feisty_meow.git

fix for perl environment variable usage in snarf notes
---

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);