Puts history files in the $main::home directory.

23 years ago · 7f3c8841e3
1 changed files with 2 additions and 2 deletions
--- a/SWIM/Library.pm
+++ b/SWIM/Library.pm
@ -65,11 +65,11 @@ sub finddb {
  if (($commands->{"dbpath"} && $commands->{"root"}) ||
     ($commands->{"dbpath"} && !$commands->{"root"}) ||
     (!$commands->{"dbpath"} && !$commands->{"root"})) {
-    $fileplace = "$parent$library";
+    $fileplace = "$main::home$parent$library";
    return $fileplace;
  }
  elsif  (!$commands->{"dbpath"} && $commands->{"root"}) {
-    $fileplace = "$parent$base";
+    $fileplace = "$main::home$parent$base";
    return $fileplace;
  }