Changed to use Perl5 stuff...

local -> my

used perl 5 references for passing databases around in the CST.

CST is now about a factor of 16 faster !

Tom


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

1 files changed, 8 insertions, 8 deletions

diff --git a/lib/sbin/MakeUtils.pl b/lib/sbin/MakeUtils.pl
index 1b4e086e..36da0200 100644
--- a/lib/sbin/MakeUtils.pl
+++ b/lib/sbin/MakeUtils.pl
@@ -21,9 +21,9 @@
 
 sub buildthorns
 {
-  local($arrangement_dir,$choice) = @_;
-  local(@arrangements);
-  local(%info);
+  my($arrangement_dir,$choice) = @_;
+  my(@arrangements);
+  my(%info);
 
   chdir $arrangement_dir || die "Can't change directory to $arrangement_dir\n";
 
@@ -127,11 +127,11 @@ sub buildthorns
 #@@*/
 sub ThornInfo
 {
-  local($thorn) = @_;
-  local($implementation) = "";
-  local($friends) = "";
-  local($inherits) = "";
-  local($shares) = "";
+  my($thorn) = @_;
+  my($implementation) = "";
+  my($friends) = "";
+  my($inherits) = "";
+  my($shares) = "";
 
   open(INTERFACE, "<$thorn/interface.ccl") || die "Unable to open $thorn/interface.ccl";