From 5031b294b209072096052ab1252bf24276d9ef67 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Tue, 14 Oct 1997 13:59:53 +0000
Subject: [PATCH] Get rid of check for home directory

---
 src/makeBaseApp/makeBaseApp.pl | 17 -----------------
 1 file changed, 17 deletions(-)

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) = @_;