diff options
-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|"); |