X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cd4177627912b8d09f195e7831c0dd0cd4096af2..cb347e6ae7d6e1d67b25bafec66eb78c5fa232b1:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 8f9594bdb..3e56b69fc 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1633,7 +1633,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);