1
0
mirror of https://github.com/fspc/dswim.git synced 2025-02-22 00:23:28 -05:00

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

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