diff --git a/src/makeBaseApp/makeBaseApp.pl b/src/makeBaseApp/makeBaseApp.pl index f84ee24f5..40db931a7 100755 --- a/src/makeBaseApp/makeBaseApp.pl +++ b/src/makeBaseApp/makeBaseApp.pl @@ -5,12 +5,6 @@ use Cwd; use Getopt::Std; use File::Copy; -#Check that user is not in home directory -$startdir=cwd(); -# remove auto-mount path which confuses directory name comparison -$startdir=~s:^/tmp_mnt::; -Cleanup (1, "Shouldn't run in Home Directory") if (GetHome() eq $startdir); - $user=GetUser(); #get options and check for valid combinations @@ -212,17 +206,6 @@ sub Cleanup exit $rtncode; } -sub GetHome # no args -{ - my ($home); - - # add to this list if new possibilities arise, - # currently it's UNIX and WIN32: - $home=$ENV{HOME} || $ENV{HOMEPATH}; - die "cannot locate home directory" unless $home; - return $home; -} - sub GetFilename # full name including path { my ($name) = @_;