X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/29d544f90be28bd2282986230318b06f5c534a3b..18e3d0e3a5ae993b42f5d1a26f8bfe4146d65769:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 07702fbfc..81727ed23 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1645,7 +1645,6 @@ sub get_all_currencies {
   my $self     = shift;
   my $myconfig = shift || \%::myconfig;
   my $dbh      = $self->get_standard_dbh($myconfig);
-  my @currencies =();
 
   my $query = qq|SELECT name FROM currencies|;
   my @currencies = map { $_->{name} } selectall_hashref_query($self, $dbh, $query);