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, 5 insertions, 5 deletions

diff --git a/lib/sbin/checkout.pl b/lib/sbin/checkout.pl
index d271715d..aec16a43 100644
--- a/lib/sbin/checkout.pl
+++ b/lib/sbin/checkout.pl
@@ -73,8 +73,8 @@ while ()
 
 sub get_arrangements
 {   
-    local(%info);
-    local($arrangement);
+    my(%info);
+    my($arrangement);
     print "\nYou already have arrangements: \n\n";
 
     %info = &buildthorns("arrangements/","arrangements");
@@ -151,8 +151,8 @@ sub get_arrangements
 
 sub get_thorns
 {
-    local(%info);
-    local($thorn);
+    my(%info);
+    my($thorn);
 
     print "\nYou already have thorns: \n\n";
     
@@ -353,7 +353,7 @@ sub print_help
 
 sub CheckOut
 {
-  local($file) = @_;
+  my($file) = @_;
 
   print("Checking out $file\n");
   system("cvs -z9 -q checkout $file");