bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-02-22 08:33:24 -05:00
Code Issues Projects Releases Wiki Activity

Things are now put below the default_directory.

Browse Source
This commit is contained in:
freesource 2001-10-12 17:14:48 +00:00
parent 52ebd92ce2
commit c5d46af4cd
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
swim
View File

@ -93,6 +93,8 @@ BEGIN {
$ENV{'PATH'} = "/usr/sbin:" . $ENV{'PATH'}; $ENV{'PATH'} = "/usr/sbin:" . $ENV{'PATH'};
} }
$main::home = $ENV{'HOME'};
} }
@ -347,8 +349,8 @@ sub command {
# this will handle options with arguments # this will handle options with arguments
$main::home = $ENV{'HOME'}; home_builder("$default_directory$parent$base/info");
home_builder("$main::home$parent$base/info"); $main::home = $default_directory;
if ($Getopt::Long::error == 1 || $commands{"root"} || if ($Getopt::Long::error == 1 || $commands{"root"} ||
$commands{"dbpath"}) { $commands{"dbpath"}) {