From 9bf28bf5ac1cb628ed935d4498694a7482b32de0 Mon Sep 17 00:00:00 2001
From: goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Sun, 24 Oct 1999 22:55:51 +0000
Subject: 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
---
 lib/sbin/BuildHeaders.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/sbin/BuildHeaders.pl')

diff --git a/lib/sbin/BuildHeaders.pl b/lib/sbin/BuildHeaders.pl
index 9dbd6e58..75d6a3b4 100644
--- a/lib/sbin/BuildHeaders.pl
+++ b/lib/sbin/BuildHeaders.pl
@@ -18,8 +18,8 @@ require "$sbin_dir/CSTUtils.pl";
 
 sub BuildHeaders
 {
-  local($cctk_home,$bindings_dir,%database) = @_;
-  local($start_dir,$thorn,$inc_file,$inc_file1,$inc_file2);
+  my($cctk_home,$bindings_dir,%database) = @_;
+  my($start_dir,$thorn,$inc_file,$inc_file1,$inc_file2);
 
   $start_dir = `pwd`;
   chdir $bindings_dir;
@@ -34,7 +34,7 @@ sub BuildHeaders
     }
   }
 
-# Add the local headers from thorns
+# Add the my headers from thorns
   foreach $thorn (split(" ",$interface_database{"THORNS"}))
   {
 
@@ -85,7 +85,7 @@ sub BuildHeaders
   {
     foreach $inc_file1 (split(" ",$interface_database{"\U$thorn USES HEADER"}))
     {
-      &WriteFile($inc_file1,$data{"$inc_file1"});
+      &WriteFile($inc_file1,\$data{"$inc_file1"});
     }
   }
 
-- 
cgit v1.2.3