fix for perl environment variable usage in snarf notes

[feisty_meow.git] / scripts / archival / snarf_notes.pl

diff --git a/scripts/archival/snarf_notes.pl b/scripts/archival/snarf_notes.pl
index 24020b79473d3073b3bec63a34c99336ce5f502a..23ecf86cb0af17291bae318ef4fc73acf7566339 100644 (file)
--- 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);