fix pointer vs hash error

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

1 files changed, 7 insertions, 7 deletions

diff --git a/lib/sbin/CSTUtils.pl b/lib/sbin/CSTUtils.pl
index 1c2fb0e2..91abbc85 100644
--- a/lib/sbin/CSTUtils.pl
+++ b/lib/sbin/CSTUtils.pl
@@ -848,28 +848,28 @@ sub recurse_deps
 
 sub print_database
 {
-  my($type, %database) = @_;
+  my($type, $database) = @_;
   my($field);
   print "$type database dump:\n";
 
-  foreach $field ( sort keys %database )
+  foreach $field ( sort keys %$database )
   {
-    print "$field has value $database{$field}\n";
+    print "$field has value $database->{$field}\n";
   }
 }
 
 sub save_database
 {
-  my($type, %database) = @_;
+  my($type, $database) = @_;
   my($field);
 
   if ($type !~ /[a-zA-Z.]+/) {
     die "first parameter of save_database contains forbidden characters";
   }
-  open SAVE_DATABASE, ">$type_database";
-  foreach $field ( sort keys %database )
+  open SAVE_DATABASE, ">${type}_database";
+  foreach $field ( sort keys %$database )
   {
-    print SAVE_DATABASE "$field has value $database{$field}\n";
+    print SAVE_DATABASE "$field has value $database->{$field}\n";
   }
   close SAVE_DATABASE;
 }