From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 29 Jan 2007 09:53:27 +0000 (+0000)
Subject: Lokale Hashes richtig deklarieren.
X-Git-Tag: release-2.4.2~228
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=f893eda30f6dc4c793f3e51f936d676720898432;p=kivitendo-erp.git

Lokale Hashes richtig deklarieren.
---

diff --git a/SL/CA.pm b/SL/CA.pm
index 28ffc2e73..4f4dbde63 100644
--- a/SL/CA.pm
+++ b/SL/CA.pm
@@ -42,7 +42,7 @@ sub all_accounts {
 
   my ($self, $myconfig, $form) = @_;
 
-  my $amount = ();
+  my %amount;
 
   # connect to database
   my $dbh = $form->dbconnect($myconfig);
@@ -65,7 +65,7 @@ sub all_accounts {
   $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
 
-  my $gifi = ();
+  my %gifi;
   while (my ($accno, $description) = $sth->fetchrow_array) {
     $gifi{$accno} = $description;
   }