Fixed make checkout.

git-svn-id: http://svn.cactuscode.org/flesh/trunk@3747 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 11 insertions, 11 deletions

diff --git a/lib/sbin/MakeUtils.pl b/lib/sbin/MakeUtils.pl
index 806012bd..6dd9fdd6 100644
--- a/lib/sbin/MakeUtils.pl
+++ b/lib/sbin/MakeUtils.pl
@@ -26,17 +26,17 @@ sub buildthorns
   my(%info);
   my($home);
 
-if ($ENV{'CCTK_HOME'})
-{
-  $home = $ENV{'CCTK_HOME'}
-}
-else
-{
-  $home = `pwd`;
-  chomp ($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";
+  chdir "$arrangement_dir" || die "Can't change directory to $arrangement_dir\n";
 
   open(ARRANGEMENTS, "ls|");
 
@@ -233,7 +233,7 @@ sub ReadThornlist
    while (<TL>)
    {
       next if m:^!.*:;
-      s/(.*?)#.*/\1/;            # read up to the first "#"
+      s/(.*?)#.*/$1/;            # read up to the first "#"
       s/\s+//g;                  # replace any spaces with nothing
       if (/\w+/)
       {