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

This commit is contained in:
freesource
2001-10-12 23:15:55 +00:00
parent 171f5643e5
commit 7f3c8841e3
+2 -2
View File
@@ -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;
}