diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-05-11 23:18:27 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-05-11 23:18:27 +0000 |
commit | 195e85de79d4a12842da3bf55ce868ae480d7315 (patch) | |
tree | b0208d845c816683d30aea6b536ed926cea49273 | |
parent | 20e69f16137079cc44f149cd82911472f24bf7c2 (diff) |
Use the CCTK_HOME from the environment if it is available. Fixes a problem
on windows.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3718 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/MakeUtils.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/sbin/MakeUtils.pl b/lib/sbin/MakeUtils.pl index 01be21c9..806012bd 100644 --- a/lib/sbin/MakeUtils.pl +++ b/lib/sbin/MakeUtils.pl @@ -26,8 +26,16 @@ sub buildthorns my(%info); my($home); +if ($ENV{'CCTK_HOME'}) +{ + $home = $ENV{'CCTK_HOME'} +} +else +{ $home = `pwd`; chomp ($home); +} + chdir $arrangement_dir || die "Can't change directory to $arrangement_dir\n"; open(ARRANGEMENTS, "ls|"); |